составить таблицу квадратов,первых...

lebido · 4 фев 2010

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

//// · 4 фев 2010

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;