Https://www.lebanondemocrat.com/calendar/watch-365-dni-days-2020-full-movie-free-online/event_8099ae06-81fa-11ea-94a0-5cb9017b77dc.html
https://www.lebanondemocrat.com/calendar/watch-365-days-dni-2020-full-movie-online-123movies/event_7cb8829e-81fa-11ea-b23f-308d99b27d1b.html
https://www.lebanondemocrat.com/calendar/openload-watch-365-dni-365-days-2020-full-movie-hd/event_0fa83248-81fb-11ea-81f6-308d99b2b460.html
https://www.lebanondemocrat.com/calendar/showcase-watch-365-dni-2020-online-full-for-free-on/event_0c329306-81fb-11ea-a7e3-bb24fc11e352.html
var a, b, с: integer;
begin
write('Введите два числа: ');
readln(a, b);
if a < b then с := a + 1 else с := b + 1;
repeat с := с - 1
until (a mod с = 0) and (b mod с = 0);
write('NOD = ', с)
end.
//2. Алгоритм с вычитанием (цикл while)
var a, b: integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
while a <> b do
if a > b then
a := a - b
else
b := b - a;
writeln('NOD = ', a);
end.