№1 Вывести на экран квадраты чисел от 1 до n. №2 Вывести на экран таблицу умножения от 1 до 10 числа n. №3 Вычислить

1.

var i, n:integer;beginreadln(n);for i:=1 to n do writeln(i*i);end.

2.

var i, n:integer;beginreadln(n);for i:=1 to n do writeln(i*n);end.

3.

var n,s,k: real;

begin

wreadln(n);

s:=1;

k:=1;

while k<n do

begin

k:=k+1;

s:=s*k;

end;

writeln(s);

end.

4.

var i, n:integer;beginreadln(n);for i:=1 to n doif i div 2 = 0 then writeln(i);end.

5.

var i, n:integer;beginreadln(n);for i:=1 to n do if i div 3 = 0 then if i div 5 = 0 then writeln(i);end.