IF-THEN-ELSE- GOTO

program deneme4;
Label basla, sonuc;
var SAYI1, SAYI2, TOPLAM, CARPIM: real;
kontrol : char;


BEGIN
basla:
WRITELN ('IKI GERCEK SAYI YAZINIZ');
READLN (SAYI1);
READLN (SAYI2);
TOPLAM := SAYI1 + SAYI2;
CARPIM := SAYI1 * SAYI2;

IF TOPLAM > 50 THEN
BEGIN
WRITELN ('IKI SAYININ TOPLAMI= ', TOPLAM: 6: 2);
END
ELSE
BEGIN
WRITELN ('IKI SAYININ CARPIMI =', CARPIM: 6: 2);
END;
WRITELN ('DEVAM ETMEK ISTIYORMUSUNUZ? E-H');
READLN (kontrol);
IF (kontrol='E') THEN
BEGIN
GOTO basla;
END
ELSE GOTO sonuc;

sonuc:

READLN;
END.