var a,b:integer;
function f(a,b:integer):integer;
begin
if (a<>0) and (b<>0) then begin
if (a>b) then
a:=a mod b else
b:=b mod a;
f(a,b);
end else
writeln(abs(a-b));
end;
BEGIN
writeln('Введите 2 натуральных числа');
readln(a,b);
write('НОД(',a,',',b,') = ');
f(a,b);
end.
17 = (5 * 3 - 7) * 3 - 7
Количество команд - 4; (Действие с числом = 1 команда)
15 х 5 = 75(км)
Ответ: 75км проедет велосипедист за 5 часов.