Var
x,y:integer;
s:char;
Begin
write ('Birinci Sayıyı Giriniz='); readln (x);
write ('İkinci Sayıyı Giriniz='); readln (y);
writeln ('MENÜ');
writeln ('A-TOPLA');
writeln ('B-ÇIKAR');
writeln ('C-ÇARP');
writeln ('D-BÖL');
writeln ('X-ÇIKIŞ');
write ('Seçiminizi Giriniz='); readln (s);
case s of
'A': write (x+y);
'B': write (x-y);
'C': write (x*y);
'D': write (x/y);
'X':
else write ('Yanlış Giriş');
end;
readln;
end.
chellchuxx
selcux@hackermail.com