Написание программ с помощью цикла WHILE

program Stepeny_a;Uses Crt;var a,b,c : real;beginwriteln ( ‘ Введите числа a и b ’ );readln ( a, b );c := a; while c < b dobegin writeln (c:8:2) ; c := c*a;end;readln;end. Даны числа a, b (a > 1). Получить все члены бесконечной последовательностиa, a2, a3, … an пока an b, то не будет выводить ни одного значения. Он основан на следующих свойствах величин: пусть a и b-одновременно ≠ 0, и пусть a b.Если b=0, то НОД(a,b) = a, Если b ≠ 0, то для чисел a,b,c, где c- остаток от деления a на b (c=a mod b) выполнено равенство: НОД(a,b)=НОД(b,c),Например:НОД(15,6)=НОД(6,3)=НОД(3,0)=3. - Это алгоритм вычисления наибольшего общего делителя (НОД) двух целых положительных чисел. Начало Задать a, b B>0 C:= a MOD b A:= b B:= c Конец ‘НОД =‘ a Program Evklid;Uses crt;Var a,b,c: integer;beginClrscr;Writeln (‘Enter a, b. (a>b)’);readln( a, b);While b>0 do begin c:= a MOD b; a:= b; b:= c; end;Writeln (‘NOD(a,b)= ‘,a);Readln;end.