var m,n: integer;
begin
read(n,m);
if n > m then writeln(m+n, n);
else writeln(m+n, m);
end.
во второй непонятно как задются эти числа
var i,n: integer;
begin
read(n);
for i : = 1 to n do
writeln(i, i*i);
end.
блок схемы мы не учили да и фигня эти схемы чесно говоря
