VAR
 N,N1:LongInt;
 b:BYTE;
 code:WORD;
 S:STRING;
 i,j:INTEGER;
BEGIN
 Write('(N must be < 2147483648); N= ');
 ReadLn(N);
 STR(N,S);
 j:=0;
 N1:=0;
 For i:=1 to Length(S) do
  If (S[i]<>'0') and (S[i]<>'1') then
   begin
    Inc(j);
    VAL(S[i],b,code);
    N1:=N1*10+b;
   end;
 WriteLn(N1);
 WriteLn('Number of figures is ',j);
 ReadLn;
END.

VAR
 N,Product:LongInt;
BEGIN
 Write('(N must be < 2147483648); N= ');
 ReadLn(N);
 Product:=1;
 Repeat
  Product:=Product*(N mod 10);
  N:=N div 10;
 Until N=0;
 WriteLn('Product is ',Product);
 ReadLn;
END.

VAR
 N:LongInt;
BEGIN
 Write('(N must be < 86400); N= ');
 ReadLn(N);
 WriteLn('Hours= ',N div 3600);
 N:=N mod 3600;
 WriteLn('Minutes= ',N div 60);
 N:=N mod 60;
 WriteLn('Seconds= ',N);
 ReadLn;
END.

VAR
 S:STRING;
 i:LongInt;
BEGIN
 WriteLn('Insert the string of less then 50 symbols:');
 ReadLn(S);
 i:=0;
 Repeat
  Repeat
   Inc(i);
   If S[i]=' ' then
    begin
     Insert(' ',S,i);
     Inc(i);
    end;
  Until (i=Length(S)) or (Length(S)=60);
  i:=0;
 Until Length(S)=60;
 WriteLn(S);
 ReadLn;
END.

VAR
 f,f1:TEXT;
 Ch:Char;
BEGIN
 Assign(f,'D:\test.txt');
 ReSet(f);
 Assign(f1,'D:\test1.txt');
 ReWrite(f1);
 Repeat
  Read(f,Ch);
  If Ch=';' then Write(f1,'. ') else Write(f1,Ch);
 Until Eof(f);
 Close(f1);
 Reset(f);
 Repeat
  Read(f,Ch);
  Write(Ch);
 Until EoF(f);
 WriteLn;
 Reset(f1);
 Repeat
  Read(f1,Ch);
  Write(Ch);
 Until EoF(f1);
 Close(f);
 Close(f1);
 ReadLn;
END.