CHUSO PASCAL

var n, b, c:longint;
begin
    assign(input, 'chuso.inp');reset(input);
    assign(output, 'chuso.out');rewrite(output);
    read(n);
    b:=n mod 10;
    c:=n div 1000;
    writeln('Chu so cuoi cung la ',b);
    write('Chu so dau tien la ',c);
end.