Var
x, y, p: Integer;
begin
Writeln('Введите два числа');
Readln(x, y); {вводим два целых числа}
p := x * y;
repeat
if x > y Then x := x Mod y
Else y := y Mod x
until (x = 0) Or (y = 0);
{до тех пор, пока одно из чисел не станет равно нулю}
Writeln('НОK=', p / (x + y)); {вывод НОД - без условного оператора, так как одно из чисел обязательно равно нулю}
end.
B не равно 1, значит выполняем вычисления
С=10
var n:integer;
begin
write('n=');
read(n);
if (n>0) then write ('n>0');
if (n<0) then write ('n<0');
if (n=0) then write ('n=0');
end.