Begin
for a:= 1 to 20 do
for b:= 1 to 20 do
for c:= 1 to 20 do
begin
if a*a+b*b=c*c then
writeln(a:4,b:4,c:4);
end;
<span>end.</span>
По типу, по дате создания, дате изменения, по автору, по размеру, по алфавитном порядке и т.д
1) 11 2)4 3)13 я не совсем уверена но вроде да
Program square;
var
i : byte;
begin
for i:=1 to 10 do
writeln(i, '^2=', i*i);
end.