1)Напишите процедуру в программке Pascal ABC(Паскаль), которая выводит на экран в

1)program zz1;
var a :integer; // задаем переменные целого типа

procedure sr(n:integer);
var k, m:integer;
begin
k:=n mod 10;n:=n div 10;
while n lt;gt; 0 do
begin
k:=k*10+n mod 10;
n:=n div 10;
end;
while k lt;gt; 0 do
begin
m:=k mod 10;
writeln(m);
k:=k div 10;
end;
end;
begin
write( введите число a ); // вводим с клавиатуры число
read(a);
sr(a); // вызываем процедуру
end.
2)program zz1;
var
s: Array [1..4] of String;
n: Integer;
Procedure Inc4;
Begin
If (s[4] = IV) then s[4] := V Else
If (s[4] = VIII) then s[4] := IX Else
If (s[4][1] = I) then If (Length(s[4]) lt; 3) then s[4] := s[4] + I
Else s[4] := IV
Else s[4] := s[4] + I;
If (s[4] = I) then s[4] := I;
End;
Procedure Inc3;
Begin
If (s[3] = XL) then s[3] := L Else
If (s[3] = LXXX) then s[3] := XC Else
If (s[3][1] = X) then If (Length(s[3]) lt; 3) then s[3] := s[3] + X
Else s[3] := XL
Else s[3] := s[3] + X; s[4] := ;
If (s[3] = X) then s[3] := X;
End;
Procedure Inc2;
Begin
If (s[2] = CD) then s[2] := D Else
If (s[2] = DCCC) then s[2] := CM Else
If (s[2][1] = C) then If (Length(s[2]) lt; 3) then s[2] := s[2] + C
Else s[2] := CD
Else s[2] := s[2] + C; s[3] := ; s[4] := ;
If (s[2] = C) then s[2] := C;
End;
begin
Write(Введите число меньше 4000: ); Read(n);
If (n gt; 3999) then n := 3999; Write(n, = );
s[1]:= ; s[2]:= ; s[3]:= ; s[4]:= ;
While (n gt; 0) do begin
Dec(n);
If (s[4] lt;gt; IX) then Inc4 Else
If (s[3] lt;gt; XC) then Inc3 Else
If (s[2] lt;gt; CM) then Inc2
Else begin
s[1] := s[1] + M; s[2] := ; s[3] := ; s[4] := ; End;
End;
For n := 1 to 4 do If (s[n] lt;gt; ) then Write(s[n]);
end.