1 Вывести на экран квадраты чисел от 1 до n. 2

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 n do writeln(i*n);
end.

3.

var n,s,k: real;

begin

wreadln(n);

s:=1;

k:=1;

while klt;n do

begin

k:=k+1;

s:=s*k;

end;

writeln(s);

end.

4.

var i, n:integer;
begin
readln(n);
for i:=1 to n do
if i div 2 = 0 then writeln(i);
end.

5.

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