Программирование / Лабораторные / ЭВТ-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.