Заданы числа А B C D найти наибольшие общие делители пар A и B / A и С / А и D — Pascal(Паскаль)

Var a,b,c,d,i,j,k:integer;
procedure nod(x,y:integer; Var z:integer);
begin
while x<>y do
begin 
if x>y then x:=x-y;
else y:=y-x
end;
z:=x
end;
begin
writeln('enter a,b,c,d');
readln(a,b,c,d);
nod(a,b,i); nod(a,c,j); nod(a,d,k);
writeln('nod(', a, ',' , b, ')', i:5:3);
writeln('nod(', a, ',' , c, ')', j:5:3);
writeln('nod(', a, ',' , d, ')', k:5:3)
end.