Реализовать в виде модуля набор подпрограмм для выполнения над обыкновенными дробями вида P /Q (где Р — целое число, Q — натуральное число).
Вариант 1 В раздел реализации включить подпрограмму вычисления наибольшего общего делителя и на ее основе подпрограмму сокращения дробей. Помогите написать в паскале
Program zadacha;vara: array[1..5] of byte;i,max: byte;beginmax:=0;for i:=1 to 5 do begin a[i]:=random(255); write(a[i]:4);end;writeln; for i:=1 to 5 doif a[i]>max then max:=a[i]; writeln('max=',max); end.