1)
var n,i,j:integer;
begin
read(n);
for i:=n downto 1 do
begin
for j:= i downto 1 do
write(n);
writeln;
end;
end.
2)
var
a,b,n,s,i: integer;
begin
write('Vvedite a,b');
read(a,b);
s:=0;
for i := a to b do
if (i mod 3 = 0) or (i mod 5 = 0) then
begin
s:=s+1;
end;
write('kolichestvo ', s);
end.
3)
var n, k, i, q: integer;
begin
repeat
readln(n);
until n > 1;
k := n;
i := 2;
repeat
if k mod i = 0 then
begin
k := k div i;
write(i:5);
inc(q)
end
else inc(i)
until (k = 1) or (i > n div 2);
if q = 0 then writeln('Prostoe chislo');
end.