Чертежнику был дан алгоритм повтори 3 раза​

это стандарт на программный инструментарий для обеспечения связи между отдельными процессами параллельной задачи. MPI предоставляет программисту единый механизм взаимодействия процессов внутри параллельно исполняемой задачи независимо от машинной архитектуры (однопроцессорные, многопроцессорные с общей или раздельной памятью), взаимного расположения процессов (на одном физическом процессоре или на разных) и API операционной системы. Программа, использующая MPI, легко отлаживается и переносится на другие платформы, часто для этого достаточно простой перекомпиляции исходного текста программы.

var a:integer;

function F(a:integer):integer;

var Max,x:integer;

begin

Max:=a mod 10;

while a>0 do begin

x:=a mod 10;

a:=a div 10;

if x>Max then Max:=x;

end;

F:=Max;

end; {F}

function F1(a:integer):integer;

var Min,x:integer;

begin

Min:=a mod 10;

while a>0 do begin

x:=a mod 10;

a:=a div 10;

if x<Min then Min:=x;

end;

F1:=Min;end; {F1}

begin

Write('Введите число-');

readln(a);

Writeln('Максимальная цифра в числе: ',F(a));

Writeln('Минимальная цифра в числе: ',F1(a));

end.

Пример:

Введите число-31842

Максимальная цифра в числе: 8

Минимальная цифра в числе: 1