Помогите пожалуйста!! Информатика.

Question

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

kublen · Accepted Answer

uses crt;  // НОД
     var 
     a,b:integer; 
     begin 
     write('1-e '); readln(a); 
     write('2-e '); readln(b); 
     repeat 
     if a>b then a:=a mod b 
     else b:=b mod a; 
     until (a=0) or (b=0); 
     writeln('nod= ',a+b); 
     end.