i := 1; if N >= i then begin writeln(i * i); inc(i);
if N >= i then begin writeln(i * i); inc(i); if N >= i then begin writeln(i * i); inc(i); if N >= i then begin writeln(i * i); inc(i); if N >= i then begin writeln(i * i); inc(i); if N >= i then begin writeln(i * i); inc(i); if N >= i then begin writeln(i * i); inc(i); end; end; end; end; end; end;
program squares;
var
N, i: integer;
begin
writeln('Введите число N:');
readln(N);
i := 1;
if N >= i thenif N >= i then
begin
writeln(i * i);
inc(i);
begin
writeln(i * i);
inc(i);
if N >= i then
begin
writeln(i * i);
inc(i);
if N >= i then
begin
writeln(i * i);
inc(i);
if N >= i then
begin
writeln(i * i);
inc(i);
if N >= i then
begin
writeln(i * i);
inc(i);
if N >= i then
begin
writeln(i * i);
inc(i);
end;
end;
end;
end;
end;
end;
end;
end.