suma'.pas

This ar the basic programs that i did in highschool. From very simple to medium programs. From array

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.