1)
Var
i,k,n:integer;
Begin
For i:=1 to 4
do
WriteLn(1234);
End.
2)
Readln(n);
For i:=n to 5
For k:=1 to i do
Write(i);
Writeln;
End;
Readln;
3)
For i:=n downto 1 do
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.