procedure Poisk(an:LongInt);
var  p,t:integer;
begin
     t:=an mod 10;
      While an<>0 do
       begin
         p:=an mod 10;
         an:=an div 10;
       end;
      Writeln('Pervaya cifra     = ',p);
      Writeln('Poslednyaya cifra = ',t);
end;
var  n:LongInt;
begin
      Write('Cislo = ');
       Readln(n);
        Poisk(n);
     Readln;
end.

procedure Poisk(as:string);
var p,t,i:integer;
begin
    p:=Ord(as[1])-Ord('0');
     i:=Length(as);
      t:=Ord(as[i])-Ord('0');
    Writeln('Pervaya cifra     = ',p);
     Writeln('Poslednyaya cifra = ',t);
end;
var  s:string;
begin
     Writeln('Cislo:');
      Readln(s);
       Writeln;
        Poisk(s);
     Readln;
end.