USES CRT;
label dongu;
VAR
sayi1,sayi2,toplama,carpma:integer;
secim:char;
begin
dongu:
clrscr;
writeln('--------------- MENU ---------------');
writeln('[+] --> GIRILEN SAYILARIN TOPLAMI');
writeln('[x] --> GIRILEN SAYILARIN CARPIMI');
writeln('------------------------------------');
write('Lutfen Birinci Sayiyi Giriniz : ');readln(sayi1);
write('Lutfen Ikinci Sayiyi Giriniz : ');readln(sayi2);
write('Lutfen Bir Secim Yapiniz : '); readln(secim);

if (secim = '+') then
begin
toplama :=sayi1+sayi2 ;
writeln('Iki Sayini Toplami : ',toplama);
readln;
goto dongu;
end
else if ((secim = 'x') OR (secim = 'X') OR (secim ='*')) then
begin
carpma :=sayi1*sayi2;
writeln('Iki Sayini Carpimi : ',carpma );
readln;
goto dongu;
end
ELSE BEGIN
writeln('YANLIS TUSLAMA. PROGRAM KAPANIYOR...'); delay(2000); exit;
END;

READLN;
end.