Паскаль! составить программу выделение цифр из трехзначного числа

program abc;

var a,b,c,d:integer;

begin

readln(a);

b:= a mod 10;

c:= a div 100;

d:= a div 10 mod 10;

writeln(c);

writeln(d);

writeln(b);

end.

,где "с" первая цифра

        "d" вторая цифра

      "b" третья цифра