а) Программа на Паскале для вычисления наибольшего общего делителя с использованием оператора repeat:

program GCD_with_repeat;
var
a, b, gcd: integer;
begin
writeln('Enter two numbers: ');
readln(a, b);
repeat
if a > b then
a := a - b
else
b := b - a;
until a = b;
gcd := a;
writeln('Greatest common divisor: ', gcd);
end.

б) Программа на Паскале для вычисления наибольшего общего делителя с использованием оператора while:

program GCD_with_while;
var
a, b, gcd: integer;
begin
writeln('Enter two numbers: ');
readln(a, b);
while a <> b do
begin
if a > b then
a := a - b
else
b := b - a;
end;
gcd := a;
writeln('Greatest common divisor: ', gcd);
end.