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

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