case kullanarak iki sayi arasinda 4 islem yaptirmak

program dortislem;

uses

crt;

label

islemadi;

var

i,j : integer;

a:char;

begin

clrscr;

repeat

writeln('sayigir -- cikmak icin q yazin');

readln(i);

writeln('sayigir -- cikmak icin q yazin');

readln(j);

islemadi:

writeln('islem adini girin (+,-,*,/)');

readln(a);

case a of

'+': writeln(i+j:15);

'-': writeln(i-j:15);

'*': writeln(i*j:15);

'/': writeln(i/j:15);

else

begin

writeln('yanlis islem girdiniz');

goto islemadi;

end

end

until a='q';

readln;

end.