Используя вспомогательные алгоритмы и подпрограммы, задайте в Паскале вычисление наибольшего общего делителя для произвольных входных данных. Входные данные задайте самостоятельно путём ввода с клавиатуры постройте блок-схему алгоритма, которая будет иллюстрировать приведённое решение в Паскале.

Для вычисления наибольшего общего делителя в Паскале с использованием вспомогательных алгоритмов и подпрограмм можно написать следующий код:

program GreatestCommonDivisor;

var
    a, b, temp: integer;

function GCD(x, y: integer): integer;
begin
    if y = 0 then
        GCD := x
    else
        GCD := GCD(y, x mod y);
end;

begin
    writeln('Введите два числа для нахождения НОДа:');
    readln(a, b);
    
    temp := GCD(a, b);
    
    writeln('Наибольший общий делитель чисел ', a, ' и ', b, ' равен ', temp);
end.

Этот код позволяет пользователю ввести два числа с клавиатуры, после чего программа вычисляет и выводит наибольший общий делитель этих чисел.

Чтобы построить блок-схему такого алгоритма, можно использовать стандартные символы для начала и окончания программы, а также блоки для ввода данных, условий и циклов в соответствии с логикой алгоритма.