помогите, пожалуйста, написать программу в паскале! сложные циклы.

Да я тебе больше определю!
Вот 30 наборов неповторяющихся чисел:

1 1 1
2 1 1
5 2 1
13 5 1
29 5 2
34 13 1
89 34 1
169 29 2
194 13 5
233 89 1
433 29 5
610 233 1
985 169 2
1325 34 13
1597 610 1
2311 1630 1141
2807 2469 827
2897 194 5
3479 2334 2293
4181 1597 1
4635 3175 98
4670 4285 2791
5058 2643 215
5117 5058 3541
5325 4223 1083
5741 985 2
6095 4533 1918
6161 3909 2557
6178 3535 1443
6227 4479 2978

Всего 1 цикл − ограничивающий количество найденных троек!

Не боись! Всего то 3 вложенных цикла : по X,Y и Z. Если равенство получается, выводишь. Легко.

паскал это фигня

program blat;
var i,j,k:integer;
ver: real;
begin
write('000 012 ');
k:=2;
for i:=1 to 9 do
begin
write(i*111,' ');
write('0',i*10,' ');
write('00',i,' ');
write(i*100,' ');
k:=k+4
end;
writeln;
for i:=3 to 9 do
begin
write((i-2)*100+(i-1)*10+i,' ');
k:=k+1
end;
for i:=9 downto 3 do
begin
write((i)*100+(i-1)*10+(i-2),' ');
k:=k+1
end;
writeln;
for i:=1 to 9 do
for j:=1 to 9 do
begin
if i<>j then
begin
write(i*100+j*10+i,' ');
write(i*100+i*10+j,' ');
write(i*100+j*10+j,' ');
k:=k+3;
end;
end;
writeln;
writeln('Takih nomerov - ',k);
writeln('Veroyatnost vstre4i s takim nomerom = ',k/1000);
end.