program hesap makinası;
uses crt;
var
a,b,top:integer;
begin
writeln('lütfen birinci sayıyı giriniz');
readln(a);
writeln('lütfen ikinci sayıyı giriniz');
readln(b);
top:=a+b;
writeln('iki sayının toplamı ',top,' dur');
readln;
end.
ilyas kurt izmir torbalı
sharp_drop_007@hotmail.com