Стандартные операции

[reider]

вот отрывок кода из delpni7
........................

begin
randomize;
Setlength(a,1);
for i:=Low(a) to High(a) do
begin;
a[i]:=11+Random(99);
Memo1.Lines.Add(FloatToStr(a[i]));
p:=a[i] div a[i]
p1:=a[i] mod a[i]
Label2.Caption:=IntToStr(p);
if(p=p1)

........................
тип p и p1 Boolean стоит
у нас генерирует числа(не важно какие и сколько) важно то что если число десятков и число единиц равно то выполняется условия, ну или не выполняется.ни как понять не могу в чем ошибка

[Utkin]

p:=a[i] div a[i]
 p1:=a[i] mod a[i]

и

тип p и p1 Boolean стоит

и еще

Стандартные операции

Че-то у Вас в голове накурено сильно.

ЗЫ.

Setlength(a,1);
 for i:=Low(a) to High(a) do

Тоже нормальный вариант.

Учитывая предыдущий текст:

Label2.Caption:=IntToStr(p);

Вы точно не на Бейсике пишите?