132456789132456789
132456789132456789
Program v;
Var a,b:integer;
BEGIN
readln (a);
readln (b);
if (a > b) then writeln (a)
else
begin
writeln (a);
writeln (b);
end;
END.
Var n,s,i:integer;
begin
write('Введите N: ');
readln(n);
for i:=1 to n do s:=s+i*i;
writeln('Ответ: ',s);
<span>end.</span>
80 97 115 115 119 111 114 100
или же если в 16ричной:
50 61 73 73 77 6F 72 64