составить программу для нахождения цифр четырехзначного числа
Program n_221;
var a, b, c, d, abcd: longint;
что дальше??? Помогите плиз

а не я не правильно прочёл условие час исправлю

всё

var a,n : integer;beginreadln(a);  while a > 0 do  begin n:= a mod 10; a:= a div 10;writeln(n) end;end.