Program zad1;
uses crt;
var a:string;
begin
    Write('Wprowadz ciag znakow: ');
    readln(a);
    Writeln(a[1]);
    writeln(a[length(a)]);
    readkey;
    clrscr;
end.