uses crt, sysutils;
procedure P_1(n1:integer);
var  s:string;
begin
     s:=IntToStr(n1);
      Writeln('Pervaja cifra = ',s[1]);
       Writeln('Poslednjaja cifra = ',s[Length(s)]);
end;
var  n:integer;
begin
     ClrScr;
      Write('Cislo = ');
       Readln(n);
        Writeln;
     P_1(n);
      ReadKey;
end.