Составить 2 программы циклами Repeat и While
Первоначальные размеры треугольника равны 5,7,9 см.Получая новые треугольники,стороны увеличиваются на 2,1,1 см.Какой по счету треуголь.будет иметь периметр превышающий величину 100?

А почему repeat делается через While?

Т.е они абсолютно идентичны

Через While:var a,b,c,p,i:integer;begini:=0;a:=5;b:=7;c:=9;p:=a+b+c;while (p<=100) do   begin   i:=i+1;   a:=a+2;   b:=b+1;   c:=c+1;   p:=a+b+c;   end;writeln('Это будет ',i,'-й по счету треугольник');end.Через Repeat:var a,b,c,p,i:integer;begini:=0;a:=5;b:=7;c:=9;p:=a+b+c;while (p<=100) do   begin   i:=i+1;   a:=a+2;   b:=b+1;   c:=c+1;   p:=a+b+c;   end;writeln('Это будет ',i,'-й по счету треугольник');end.