VAR s,k: intege;
begin
s := 2;
for k := 1 to 3 do;
s := s * s;
Writeln(s);
end

Фидан77714    1   21.05.2020 13:26    1