Написать программки, по итогам которых на экран выводилось бы

1)

Var

i,k,n:integer;

Begin

For i:=1 to 4

do

   WriteLn(1234);

End.

2)

Var

i,k,n:integer;

Begin

Readln(n);

For i:=n to 5

do

 Begin

  For k:=1 to i do

   Write(i);

  Writeln;

 End;

Readln;

End.

3)

Var

i,k,n:integer;

 Begin

Readln(n);

For i:=n downto 1 do

 Begin

  For k:=1 to i do

   Write(i);

  Writeln;

 End;

Readln;

End.