Дано четырехзначное целое число. Найти четвертую и первую цифру данного числа — Pascal(Паскаль)

program sfd;

var
  n, a, b, c, d: integer;

begin
  write('n=');
  read(n);
  a := n mod 10;
  b := n div 10;
  c := b div 10;
  d := c div 10;
  writeln('1 цифра=', d);
  writeln('4 цифра=', a);

end.