Программирование / Лабораторные / ЭВТ-1-Паскаль / LABAR4

program labar4;{Џа®Ја ¬¬  ­ е®¦¤Ґ­Ёп ­ Ё¬Ґ­м襣® ®ЎйҐЈ® Єа в­®Ј®
(ЌЋЉ) ¤ўге 楫ле зЁбҐ«}
Var a,b:integer;{a,b - ‚ў®¤Ё¬лҐ Ї®«м§®ў вҐ«Ґ¬ зЁб« }
nod,nok:integer;{ЌЋ„ Ё ЌЋЉ integer}

{Џа®жҐ¤га  Ї®ЁбЄ  ЌЋ„, Ї®  «Ј®аЁв¬г …ўЄ«Ё¤ .}
procedure Evklid(a,b:integer;var nod:integer);
begin
writeln('ЊЁ­гвЄг...');
while a<>b do
if a>b then a:=a-b else b:=b-a;
nod:=a
end;

{Ћб­®ў­®© Ў«®Є. Ќ е®¦¤Ґ­ЁҐ ЌЋЉ, ЁбЇ®«м§гп Їа®жҐ¤гаг Ї®ЁбЄ  ЌЋ„.}

begin
writeln;write('‚ўҐ¤ЁвҐ ¤ў  楫ле зЁб« , зҐаҐ§ Їа®ЎҐ«:');
readln(A,B);
Evklid(a,b,nod);
nok:=trunc(a*b/nod);
writeln('Ќ Ё¬Ґ­м襥 ®ЎйҐҐ Єа в­®Ґ = ',nok:0);
writeln('Press Enter for exit');readln
end.