Напишите программу вычисления наибольшего общего делителя двух натуральных чисел. используйте оператор repeat, while.

Function nod(a, b: integer): integer; begin   while a < > b do       if a > b then a : = a - b       else b : = b - a;   nod : = a end; begin   writeln('нод(264; 5436)=', nod(264, 5436)) end. тестовое решение: нод(264; 5436)=12

1) в цикле repeat until идет проверка, что число введено в диапазоне [0..200} var i,n: integer; a: longint; p: real; begin p: =1; repeat       readln(n); until (n> =0)and(n< =200); for i: =1 to n do     begin         readln(a);           p: =p*a;     end; writeln(p); end. 2) var i,n: integer; a,max: longint; begin repeat       readln(n); until (n> =0)and(n< =200); for i: =1 to n do     begin         readln(a);             if a> max then                 max: =a;     end; writeln(max); end. 3) var i,n: integer; a,min: longint; begin repeat       readln(n); until (n> =0)and(n< =200); for i: =1 to n do     begin         readln(a);             if a< min then                 min: =a;     end; writeln(min); end.

Цифрами обозначены строки необходимые в соответсвующей программе, остальные - общие. ну и переменные смотри var    a : array [1..200] of longint;     p,max : integer;     n,i,j : integer;   begin  readln (n);   p : = 1;     // 1  max : = 0;   // 2 3    for i : = 1 to n do    begin      readln (a[i]);         p : = p * a[i];   // 1      if a[i] > max then //2 3        begin                  //2  3 max : = a[i]; // 2 3        j : = i; //3        end;         // 2  3 end;         writeln (p); //1    writeln (max); //2    writeln (j); //3   end.