Відповідь:
program nodd;
var chislo1, {первое число}
chislo2, {второе число}
nod, {наибольший общий делитель}
r:integer; {остаток отделения 1-го числа на 2-е}
begin
Writeln ('Vvedite chisla:');
Readln (chislo1,chislo2); {ввод двух чисел с клавиатуры}
while (chislo1 mod chislo2)<>0 do {цикл выполняется пока остаток <> 0}
begin
r:=chislo1 mod chislo2; {вычисление остатка 1-го числа на 2-ое}
chislo1:=chislo2; {присваиваем 2-е число 1-му}
chislo2:=r; {присваиваем остаток от деления 2-му числу}
end;
nod:=chislo2; {присваиваем 2-е число переменной nod}
Writeln ('NOD: ',nod); {Вывод НОД}
Readln;
end.
Пояснення:
uses crt;
var x,y:integer;
begin
clrscr;
writeln (' v vedite dva chisla');
readln (x,y);
if x>0 and y>0 then writeln ('1');
if x<0 and y>0 then writeln ('2');
if x<0 and y<0 then writeln ('3');
if x>0 and y<0 then writeln ('4');
readln;
end.