Найти все четырехзначные числа, которые при делении на 3 дают остаток 1

program z1;
var i,i1,i2,i3,i4,A:integer;
BEGIN
writeln('Input A -> ');readln(A);
   for i1:=1 to 9 do
      for i2:=0 to 9 do
       for i3:=0 to 9 do
       for i4:=0 to 9 do
        for i:=1000 to 9999 do
       if (i1+i2+i3+i4)=A  then
       if(i mod 3 = 1)and(i mod 4 = 2) then
writeln(i);
   end.

Program z3;
uses crt;
    var
p,n : longint;
begin
writeln('Ââåäèòå ÷èñëî');
readln (n);
p:=(n*n*n);
if p mod  100 = n then
begin
writeln(p:2);
writeln ('Ýòî ÷èñëî ÿâëÿåòñÿ òðèìîðôíûì')
end else
writeln ('Ýòî ÷èñëî íå ÿâëÿåòñÿ òðèìîðôíûì');
readln;
end.

program z1;
var i,i1,i2,i3,i4,A:integer;
begin
writeln('Input A -> ');
readln(A);
for i:=1000 to 9999 do
begin
i1:=i mod 10;
i2:=(i div 10) mod 10;
i3:=(i div 100) mod 10;
i4:=i div 1000;
if(i mod 3 = 1)and(i mod 4 = 2)and((i1+i2+i3+i4)=a) then writeln(i);
end;
end.

var
p,n : longint;
 
begin
writeln('Vvedite cislo');
readln (n);
p:=(n*n*n);
if (n>10)and(p mod 10 = n) then writeln('trimorfnoe: ',p) else
if (n<100)and(n>9)and(p mod 100 = n) then writeln('trimorfnoe ',p)else
if (n<1000)and(n>99)and(p mod 1000 = n) then writeln('trimorfnoe ',p)else
writeln('net ',p);
end.

Program z3;
uses crt;
var
p,n : longint;
 
begin
writeln('Введите число');
readln (n);
p:=(n*n*n);
if (n<10)and(p mod 10 = n) then writeln('Это число является триморфным: ',p) else
if (n>10)and(p mod 10 = n) then writeln('Это число является триморфным: ',p) else
if (n<100)and(n>9)and(p mod 100 = n) then writeln('Это число является триморфным: ',p)else
if (n<1000)and(n>99)and(p mod 1000 = n) then writeln('Это число не является триморфным: ',p)else
writeln('net ',p);
end.

Program z3;
uses crt;
var
p,n : longint;
 
begin
writeln('Введите число');
readln (n);
p:=(n*n*n);
if (n<10)and(p mod 10 = n) then writeln('Это число является триморфным: ',p) else
if (n<100)and(n>9)and(p mod 100 = n) then writeln('Это число является триморфным: ',p)else
if (n<1000)and(n>99)and(p mod 1000 = n) then writeln('Это число не является триморфным: ',p)else
writeln('net ',p);
end.

program z1;
var i,i1,i2,i3,i4,i5,n:integer;
begin
writeln('Ââåäèòå ÷èñëî ');
readln(n);
write('Ðóëüòàò: ');
if  n<10 then if n<5 then writeln(9-n) else writeln(n);
 
if  (n>9)and(n<100) then
begin
i1:=n div 10;
i2:=n mod 10;
if i1<5 then i1:=9-i1;
if i2<5 then i2:=9-i2;
writeln(i1*10+i2)
end;
 
if  (n>99)and(n<1000) then
begin
i1:=n div 100;
i2:=(n div 10)mod 10;
i3:=n mod 10;
if i1<5 then i1:=9-i1;
if i2<5 then i2:=9-i2;
if i3<5 then i3:=9-i3;
writeln((i1*100)+(i2*10)+i3)
end;
 
if  (n>999)and(n<10000) then
begin
i1:=n div 1000;
i2:=(n div 10) mod 10;
i3:=(n div 100) mod 10;
i4:=n mod 10;
if i1<5 then i1:=9-i1;
if i2<5 then i2:=9-i2;
if i3<5 then i3:=9-i3;
if i4<5 then i4:=9-i4;
writeln((i1*1000)+(i2*100)+(i3*10)+i4);
end;
 
if  (n>9999)and(n<100000) then
begin
i1:=n div 10000;
i2:=(n div 1000) mod 10;
i3:=(n div 100) mod 10;
i4:=(n div 10) mod 10;
i5:=n mod 10;
if i1<5 then i1:=9-i1;
if i2<5 then i2:=9-i2;
if i3<5 then i3:=9-i3;
if i4<5 then i4:=9-i4;
if i5<5 then i5:=9-i5;
writeln((i1*10000)+(i2*1000)+(i3*100)+(i4*10)+i5);
end;
 
end.