Menghitung FPB

Program Menentukan_FPB_dengan_Menggunakan_Algoritma_Euclide;

uses crt;

var
x,y,a,b,p,q:integer;

begin
clrscr;
writeln('Nama : Eka Dewi Rahayu');
writeln('Kelas : 4a');
writeln('NIM : 070766');
writeln;
writeln (' Program FPB ');
writeln ('==================================================');

write('masukan bilangan pertama : ');read(p);
write('masukan bilangan kedua : ');read(q);

if p>q then
begin
a:=p;
b:=q;
end else
begin
a:=q;
b:=p;
end;

writeln;
y:=a mod b;
x:=a div b;

writeln (a,' = ',x,' . ',b,' + ',y);readln;

if a>b then
repeat
a:=b;
b:=y;
y:=a mod b;
x:=a div b;

writeln (a,' = ',x,' . ',b,' + ',y);readln;

until y=0;
writeln;
write('jadi nilai FPB adalah ');
writeln (b);
readln;
write('fpb=a=b');
end.