Ki tudná megcsinálni euklidészi algoritmust, hogy a legkisseb közös nevezöt irja ki?

Program lko; {DruPapi}

USES crt;

var a, b, c, d, e, f:integer;

Begin

ClrScr;

Writeln('Adja meg az első számot');

Read(a);

Writeln('Most a második számot adja meg');

Read(b);

c:=a;

d:=b;

while a<>b do

if a<b then b:=(b-a) else a:=(a-b);

e:=c div a;

f:=d div a;

ClrScr;

Writeln(c,'-nek és ',d,'-nek a legnagyobb közös osztója: ',a);

Writeln(c,'-ben ',e,'-szer, ',d,'-ben ',f,'-szer van meg');

Readkey;

End.

Már 3 éve kész :P