Напечатать столбиком все целые чётные числа от 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 endend.Результат выполнения программы:Число   Квадрат  14      196  16      256  18      324  20      400  22      484  24      576