Ноутбук. принтер. ток. кот. ещё есть трояк и каеф, но это вряд ли подойдёт.
Var a, b, answer: integer;
function gcd(m, n: integer): integer;
var modulo: integer;
begin
modulo := m mod n;
if modulo = 0 then gcd := n
else gcd := gcd (n, modulo) end;
begin
write('Введите 2 числа: '); readln(a, b);
answer := gcd(a, b);
writeln('Наибольший общий делитель: ', answer);
<span>end.</span>
60 Ход решения описан в задании.