Задание 1:
Задание 2:
var a,b:integer;
begin
read(a,b);
writeln(a+b);
end.
var a,i:integer;
for i:=1 to 5 do begin
read(a);
a:=a*a;
write(a,' ');
end;
Задание 1:
### Pr(RI+RI)Задание 2:
### RAI(5).Sel(x → x**2).Prvar a,b:integer;
begin
read(a,b);
writeln(a+b);
end.
var a,i:integer;
begin
for i:=1 to 5 do begin
read(a);
a:=a*a;
write(a,' ');
end;
end.