program pascal FPB KPK 3 bilangan

Mencari FPB dan KPK dari 3 bilangan


Program FPB_dan_KPK_dari_3_bilangan;
uses crt;
var a,b,c,d:longint;
begin clrscr;
write('ketikkan bilangan ke-1: '); readln(a);
write('ketikkan bilangan ke-2: '); readln(b);
write('ketikkan bilangan ke-3: '); readln(c);
for d:=b downto 1 do
begin
if (a mod d=0) and (b mod d=0) and (c mod d=0) then
begin
writeln('FPB dari ',a:4,',',b:4,' dan ',c:4,' adalah ',d:7);
d:=1
end;
end;
for d:=c to (a*b*c) do
begin if (d mod a=0) and (d mod b=0) and(d mod c=0) then
begin writeln('KPK dari ',a:4,',',b:4,' dan ',c:4,' adalah ',d:7);
d:=a*b*c;
end;end; readln end.