Даю 40 Раутов!!!!Паскаль программка на нахождение чисел используя процедуры 1) счастливые

uses crt;

var i,j,p,a,b,c,d,a1,b1,c1,d1:integer;

begin

clrscr;

writeln('Числа Армстронга на промежутке [100..9999]');

for i:=100 to 9999 do

begin

if(ilt;1000) then p:=3 else p:=4;

a:=i div 1000;

b:=i div 100 mod 10;

c:=i div 10 mod 10;

d:=i mod 10;

a1:=1;b1:=1;c1:=1;d1:=1;

for j:=1 to p do

begin

a1:=a1*a;

b1:=b1*b;

c1:=c1*c;

d1:=d1*d;

end;

if a1+b1+c1+d1=i then write(i,' ');

end;

readln

end.

наверное правильно