<span>Гелиоцентрическая Система, </span>
<span>Система сфер </span>
<span>геоцентрическая Система</span>
Var
a,b:integer;
begin
Write('Введите два натуральных числа '); Readln(a,b);
while a<>b do
if a > b then a := a - b
else b := b - a;
Writeln('НОД=',a)
end.
<em><u>Тестовое решение:</u></em>
Введите два натуральных числа 28 16
НОД=4
var
res: real;
begin
res := (sqrt(3) + 2 * sqrt(2)) / (sqrt(sqrt(5)));
writeln(res);
end.