1)Program Tema1;
var a,b:integer;
Begin
writeln('Introduceti cele doua numere intregi: ');
read(a,b);
if(a>=0) then
a=a*a;
writeln('Numerele intregi acum sunt: ',a,b);
End;
2)
Program Tema2;
var i,n,s:integer;
Begin
s:=0;
writeln('Introduceti numarul natural: ');
for i=1 to n do
s:=s+i;
writeln('Suma numerelor mai mici decat n este: ',s);
End.