№1 вывести на экран квадраты чисел от 1 до n. №2 вывести на экран таблицу умножения от 1 до 10 числа n. №3 вычислить значение факториала n! №4 в диапазоне от 1 до n вывести все четные числа на экран. №5 найти количество чисел,
которые делятся на 3 и 5, из диапазона от 1 до n.

1)

var

i,n:integer;

begin

readln(n);

for i:=1 to n do writeln(i*i);

end.

2)

var

i,n:integer;

begin

readln(n);

for i:=1 to 10 do writeln(i:2,'*',n,'=',i*n:3);

end.

3)

var
i,n: integer;
p: real;

begin
readln(n);
p := 1;
for i := 1 to n do p := p * i;
writeln(p:15:0);
end.

4)

var

i,n:integer;

begin

readln(n);

for i:=1 to n do if (i mod 2=0) then writeln(i);

end.

5)

var

i,n,k:integer;

begin

readln(n);

k:=0;

for i:=1 to n do if (i mod 15=0) then k:=k+1;

writeln(k);

end.