program p1;
uses crt; выводит окошко, где будет результат
var i,s:integer;
begin
s:=0;
for i:=10 to 99 do begin
s:=s+i;
end;
write(s);
end.
Верно, каждый знак=1 разряду двоичного (например) кода
Var
a,b:longint;
begin
readln(a,b);
if sqr(a)>sqr(b) then writeln(a)
else
if sqr(a)<sqr(b) then writeln(b)
else writeln('Квадраты чисел равны')
end.