#4

a)
1
2
3
4
5

b)
1 1
2 4
3 9
4 16
5 25
6 36
7 49
8 64
9 81
10 100

c)
пустой вывод

#5
n = 5

#6
until n > 10 or a == 0

#7

a)
program _1to10;
var
i: integer;
begin
for i := 1 to 10 do
write(i, ' ')
end.

b)
program sqr_7_27;
var
i: integer;
begin
for i := 7 to 27 do
  begin
    if i mod 2 == 1 then
      write(sqr(i), ' ');
  end;
end.

c)
program sqrt_3_4per_23;
var
i: integer;
begin
  i := 3;
  repeat
    write(sqrt(i), ' ');
    i := i + 4;
  until (i > 23);
end.