Печатать элементы последовательности 100 50 25 12, пока они больше 1

100 50 25 12,5 6,25 3,125 1,5625

Var a,b,c,a1,b1: real; begin a: =168; b: =178; write('введите рост - '); readln(a1); write('введите вес - '); readln(b1); if (a1< a) or (a1> b) then   writeln('предендент не может вступить в школу так как его рост не соответствует нормам.')     else   begin     if b1> a1 then   writeln('предендент не может вступить в школу так как его вес не соответствует нормам.')     else writeln('человек может вступить в школу.');   end; end.

Var a,b,c: real;     s: string; begin   write('длины сторон через пробел:   ');   readln(a,b,c);   if (a+b> c) and (a+c> b) and (c+b> a) then   begin     if (sqr(a)+sqr(b)=sqr(c)) or         (sqr(a)+sqr(c)=sqr(b)) or         (sqr(b)+sqr(c)=sqr(a)) then           s: ='треугольник прямоугольный'     else       if (sqr(a)+sqr(b)> sqr(c)) and         (sqr(b)+sqr(c)> sqr(a)) and         (sqr(a)+sqr(c)> sqr(b))   then         s: ='треугольник остроугольный'     else s: ='треугольник тупоугольный';     writeln(s);     end   else writeln('треугольник составить нельзя'); end.