Помоги решить задачки в Паскаль

[azics]

Сообщение от Nadir Zaitov

Писать дальше много и вы в програмке ничего не поймете... лучше теория:

Пусть даны числа A и B. Будем считать A>B (Иначе НОД(A,B)=НОД(B,A);

Далее если A mod Б = 0, то НОД (А,Б)=Б иначе НОД (А,Б)=НОД (Б,A mod Б).

Процесс быстро заканчивается, так что можно использывать рекурсию.

вы задачу не вовсе поняли, нужно найти НОД а не - число А делится на Б.

вот решения:
program NODfinder;
var
a,b,nod:integer;
begin
read(a,b);
if a=b then nod:=a;
if a<b then swap(a,b);
repeat a:=a-b until a=b;
nod:=a;
writeln(nod)
end.