Question

Напечатать столбиком все целые чётные числа от 14 до 24 и квадраты этих чисел. Решение вида:
Число Квадрат
14 196
16 256
18 324
20 400
22 441
24 576

Answer 1

var
  i:integer;
begin
  Writeln('Число   Квадрат');
  i:=14;
  while i<=24 do
  begin Writeln(i:4,sqr(i):9); i:=i+2 end
end.

Результат выполнения программы:
Число   Квадрат
  14      196
  16      256
  18      324
  20      400
  22      484
  24      576