Напишите (учитывая что программа 10 класса) сколько не ищу — все не подходит (как учительница говорит) !

вот мой г**нокод на javascript с одного онлайн-курса, но с использованием while. скину сотку на телефон любому, кто в нем разберется:

function cycle(a, b) {

    while(a ! = b) b = a> b ? [a,a=b][0]-a : b-a

    return a;

}

но поскольку я вижу сверху ключевое слово repeat, полагаю, нужно это сделать в pascal. ради б-га:

var a,b: integer;

begin

    a : = 32;

    b : = 32;

    while not (a = b) do

    begin

        if a > b then begin

            a : = a - b;

        end else

            b : = b - a;

    end;

    writeln(a);

end.

программа вылетает т.к. много значений перебирает, если не хочется подобного просто смените ограничение.

var i,a,b,c,d: integer;

begin

for i: =1000 to 9999 do begin

a: =i mod 10;  

b: =(i div 10) mod 10;  

c: =(i div 100) mod 10;

d: =(i div 1000) mod 10;

      if (a=b) and (b=c) and (c=d) then writeln ('odinakovie cifri - ',i);

      if (a< > b) and (a< > c) and (a< > d) and (b< > c) and (b< > d) and (c< > d) then writeln('ne odinakovie cifri - ',i);

end;

1: const n=10; var    min,i: integer;   a: array[1..n] of integer; begin   randomize;   min: =11;   for i: =1 to n do begin     a[i]: =random(1,10);     write (a[i],' '); // для наглядности. можно удалить     if   (i mod 2 =1) and (a[i]< min)        then min: =a[i];       end;   writeln;   writeln ('min = ',min) end. пример: 5 4 7 8 6 2 10 4 9 9  min = 5 2 : const n=10; var    max,count,i: integer;   a: array[1..n] of integer; begin   randomize;   max: =0;   count: =0;   for i: =1 to n do begin     a[i]: =random(1,10);     write (a[i],' '); // для наглядности. можно удалить     if a[i]> max       then max: =a[i];         end;   for i: =1 to n do      if max=a[i] then count: =count+1;   writeln;   writeln ('max = ',max);   writeln ('count = ',count); end. пример: 8 5 3 2 2 10 10 9 3 10  max = 10 count = 3