uses crt;
var
a,b,i:integer;
c:real;
devam,sec:char;
begin
clrscr;
i:=1;
while i<10 do begin
i:=i+1;
writeln('+');
writeln('-');
writeln('*');
writeln('/');
sec:=readkey;
if(sec='+')then begin
writeln('1.sayıyı gir');readln(a);
writeln('2.sayıyı gir');readln(b);
c:=a+b;
writeln(c);end;
if(sec='-')then begin
writeln('1.sayıyı gir');readln(a);
writeln('2.sayıyı gir');readln(b);
c:=a-b;
writeln(c);end;
if(sec='*')then begin
writeln('1.sayıyı gir');readln(a);
writeln('2.sayıyı gir');readln(b);
c:=a*b;
writeln(c);end;
if(sec='/')then begin
writeln('1.sayıyı gir');readln(a);
writeln('2.sayıyı gir');readln(b);
c:=a/b;
writeln(c:1:1);end;
writeln('devam etmek ister misiniz?');
devam:=readkey;
if(devam='H')or(devam='h')then halt; end;
readln;
end.
Linkback: https://www.buyuknet.com/hesap-makinesi-programi-t8641.0.html