suma'.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 17 行

program suma;
var a,c,b:integer;
procedure stea;
begin
writeln('*****************');
end;
begin
stea;
write('a= ');
readln(a);
write('b= ');
readln(b);
c:=a+b;
writeln('suma nr. ',a,'+',b,' este ',c);
stea;
end.