Найти наибольший общий делитель следующих чисел(16 32 40 64 80 128). Использовать процедуру для нахождения общего делителя. ПАСКАЛЬ!!!

так же для tr и tr1 pt и pt1

в конце замените dv2:= power( 2,d1)

tr2:=power(3,tr1)

pt2:=power(3,pt1)

через чур сложно чтоб быть оптимальным

var dv,tr,pt,dv1,tr1,pt1,dv2,tr2,pt2 :real;procedure nod( var dv,tr,pt,dv1,tr1,pt1,dv2,tr2,pt2 :real; );var a:array[1..6] of real;i : integer;begindv1:=100;tr1:=100;pt1:=100;for i:= low(a) to high (a) do beginreadln(a[i]);repeatif( (a[i] mod 2) =0) then begina[i]:=a[i]/2;dv:=dv+1;endelse if( ( a[i] mod 3)=0) then begina[i]:=a[i]/3;tr:=tr+1;endelse if ( ( a[i] mod 5)=0) then begina[i]:=a[i]/5;pt:=pt+1;end;untill(a=1);if dvif trif ptdv:=0;tr:=0;pt:=0;end;if dv1>0 then dv2:=dv1*2 else dv2:=1;if tr1>0 then tr2:=tr1*3 else tr2:=1;if pt1>0 then pt2:=pt1*5 else pt2:=1;nod:=dv2*tr2*pt2;writeln(nod);end;beginnod( dv,tr,pt,dv1,tr1,pt1,dv2,tr2,pt2 );end.end;