составить таблицу квадратов,первых двадцати положительных чисел 1<либо равно а<либо равно20,шаг=1,с=а*а,sqr(a),a=a+1

For a := 1 to 20 do

begin

   writeln(a,"^2 = ", a*a);

end

или

a:= 1;

repeat

   writeln(a,"^2 = ", a*a);

   a := a + 1;

until a > 20;