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

program zz1;

var c:integer; / / задаем переменную целого типа

begin

c:=14; / / задаем начальное значение для переменной цикла

while c < = 24 do / / организуем цикл, пока переменная цикла не достигнет последнего значения

begin

writeln (' для числа ', c, ' его квадрат = ', c*c); / / выводим ответ в заданном формате

c:=c + 2; / / увеличиваем переменную цикла на два, чтобы получить следующее четное число

end;

end.