IF THEN ELSE

PROGRAM DENEME3;

Var sayi1, sayi2, toplam, carpim : real;

BEGIN

WRITELN('IKI GERCEK SAYI YAZINIZ');

READLN(sayi1);

READLN(sayi2);

toplam:= sayi1 + sayi2;

carpim:=sayi1 * sayi2;

If (toplam>50)

THEN

BEGIN

WRITELN('IKI SAYININ TOPLAMI='); END

ELSE

BEGIN

WRITELN('IKI SAYININ CARPIMI='); END;

READLN;