№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.