ПОМОГИТЕ ПОЖАЛУЙСТА! Дано натуральное число, меньше 1000. Напишите программу, которая

program raf105;

var a:array[1..3] of integer;

abc,i:integer;

begin

write('Введите число меньше тыщи: ');

readln(abc);

a[1]:=1000;

a[2]:=1000;

a[3]:=1000;

while abclt;gt;0 do

begin

 i:= i+1;

 a[i]:= abc mod 10;

 abc:= (abc-a[i]) div 10;

end;

if (a[1]lt;gt;a[2]) and (a[1]lt;gt;a[3]) and (a[1]lt;gt;1000)

 then abc:= abc+1;

if (a[2]lt;gt;a[1]) and (a[2]lt;gt;a[3]) and (a[2]lt;gt;1000)

 then abc:= abc+1;

if (a[3]lt;gt;a[1]) and (a[3]lt;gt;a[2]) and (a[3]lt;gt;1000)

 then abc:= abc+1;

if abc=3 then abc:= abc-1;

writeln('Количество различных цифр: ',abc+1);

end.

Программка написана на языке PascalABC.NET