tugas Program Komputer FPB

program MenentukanFPB 2 bilangandengan algoritma euclids;
uses crt;
var a,b,r,q :integer;
label awal,akhir;
begin
clrscr;
writeln (’ program menentukan FPB 2 bilangan‘);
writeln (’ ====================== ‘);
writeln (’masukkan nilai a dan b yang ingin dihitung’);
write (’A=’); readln (a);
write (’B=’); readln (b);
writeln;
if a>=b then
awal:
begin
r:= a mod b;
q:= a div b;
writeln(a, ‘=’ ,b, ‘*’ ,q, ‘+’ ,r);
writeln(’r=’,r); readln;
if r=0 then
begin
write (’maka FPBnya adalah ‘ ,b); readln;
end
else
a:=b; b:=r;
goto awal;
end
else
if athen
akhir:
begin
r:= b mod a;
q:= b div a;
writeln(b, ‘=’ ,a, ‘*’ ,q, ‘+’ ,r);
writeln(’r=’,r); readln;
if r=0 then
begin
write (’maka FPBnya adalah ‘ ,a); readln;
end
else
b:=a; a:=r;
goto akhir;
end
end.