Составить 2 программки циклами Repeat и WhileПервоначальные размеры треугольника одинаковы 5,7,9

Var  a, b, c, n: Integer;
begin  a := 5;  b := 7;  c := 9;  n := 1;  repeat    a := a + 2;    b := b + 1;    c := c + 1;    n := n + 1;  until a + b + c gt;= 100;  WriteLn(n);end.

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