PRokom Pascal FPB

Program Menentukan_FPB_dengan_Menggunakan_Algoritma_Euclid;


Uses Crt;
Var x,y,a,b,k,l:longint;
Begin Clrscr;
WriteLn ('!!!!!!!!!!!!! JUDUL !!!!!!!!!!!!');
writeLn (' PROGRAM MENENTUKAN NILAI FPB ');
WriteLn (' airinda Ektria 070793');
WriteLn ('Masukan Bilangan Pertama:'); ReadLn (k);
WriteLn ('Masukan Bilangan Kedua:'); ReadLn (l);
if k>l then
begin
a:=k;
b:=l;
end else
begin
a:=l;
b:=k;
end;
WriteLn;
y:= a mod b;
x:= a div b;
Write (a);
Write ('=');
Write (x);
Write ('*');
Write (b);
Write ('+');
WriteLn (y);

Repeat
a:=b;
b:=y;
y:= a mod b;
x:= a div b;
Write (a);
Write ('=');
Write (x);
Write ('*');
Write (b);
Write ('+');
WriteLn (y);
Until y=0;
WriteLn (' Nilai FPB adalah sebagai berikut :');
Write (b);
Readln;
End.