var a,i,n:integer;
begin
writeln('Введите n');
readln(n);
if n>=5 then writeln('Введите n заново');
for i:=1 to 3 do begin
a:=n mod 10;
writeln('Последняя цифра=');
readln(a);
n:=n div 10;
Объяснение:
var a,i,n:integer;
begin
writeln('Введите n');
readln(n);
if n>=5 then writeln('Введите n заново');
for i:=1 to 3 do begin
a:=n mod 10;
writeln('Последняя цифра=');
readln(a);
n:=n div 10;
Объяснение: