Напишите в паскале программу,которая выводит на экран таблицу квадратов первых двадцати целых положительных четных чисел. Срочно!

Ответ:

program zz;

var

 i: integer;

begin

 for i := 1 to 20 do

   if i mod 2 = 0 then

     writeln(i, '*', i, ' - ', i * i);

 readln;

end.

Объяснение: