20
обсудите в группе и запишите с фигурных скобок множества:
​

одновременно нажать alt и 3 (на цифровой клавиатуре с права)

♥

var

s,n,i: integer;

begin

write('введите количество чисел');

readln(n);

s: =0;

for i: =1 to n do

s: =s+i*3;

writeln(s);

end.

нет,так как это не текствовый документ ,а картинка,и компьютер читает отсканированный файл картинкой а не текстом!

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;