деление четырехзначного числа на последнюю цифру

var
n:integer;
c:byte;
res:real;
.........................
repeat
write('n=');
readln(n);
until (n>=1000)and(n<=9999);//4х-значное
c:=n mod 10;//последняя цифра
if c=0 then write('Решения нет! Деление на 0.')
else 
 begin
   res:=n/c;
   write('res=',res:0:3);
 end;
readln
end.

program Delenie;
uses crt;
var
 a:array[1..4] of integer;
 N:integer;
 m:real;
begin
  clrscr;
  writeln('Vvodite N');
  readln(N);
  a[1]:=trunc(N/1000);
  a[2]:=trunc(N/100)-a[1]*10;
  a[3]:=trunc(N/10)-a[2]*10-a[1]*100;
  a[4]:=N-(a[1]*1000)-(a[2]*100)-(a[3]*10);
  m:=n/a[4];
  writeln('N:',a[4],'=',m:4:2);
  readln
end.

for i:=1000 to 9999 do
 begin
   c:=i mod 10;
   if (i mod c=0)and(i mod 23=0)then writeln(i);
 end;

program Delenie;
 
uses crt;
 
var
 a:array[1..999] of integer;
 N,i:integer;
begin
  clrscr;
  writeln('Vvodite N');
  writeln;
  for N:=1000 to 9999 do
   begin
    a[1]:=trunc(N/1000);
    a[2]:=trunc(N/100)-a[1]*10;
    a[3]:=trunc(N/10)-a[2]*10-a[1]*100;
    a[4]:=N-(a[1]*1000)-(a[2]*100)-(a[3]*10);
    if (c<>0) and (N mod 23=0) and (N mod a[4]=0) then
     begin
      writeln(N);
      end;
     end;
  writeln;
  readln
end.

for i:=1000 to 9999 do
 begin
   c:=i mod 10;
   if (c<>0) and (i mod c=0)and(i mod 23=0)then
    writeln(i);
 end;