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

program GSA ;
    { Џа®Ја ¬¬  ­ е®¦¤Ґ­Ёп ­ ЁЎ®«м襣® ®ЎйҐЈ® ¤Ґ«ЁвҐ«п ¤ўге 楫ле зЁбҐ« }
uses crt;
    Var a,b:integer;  { ‚ў®¤Ё¬лҐ Ї®«м§®ў вҐ«Ґ¬ зЁб« }
        nod:integer;  { Ќ ЁЎ®«миЁ© ®ЎйЁ© ¤Ґ«ЁвҐ«м }
  begin
clrscr;
    writeln;write('‚ўҐ¤ЁвҐ ¤ў  楫ле зЁб«  (a Ё b): ');
    readln(a,b);
    { Џ®ЁбЄ  ­ ЁЎ®«м襣® ®ЎйҐЈ® ¤Ґ«ЁвҐ«п, Ї®  «Ј®аЁв¬г …ўЄ«Ё¤ . }
       while a<>b do if a>b then a:=a-b else b:=b-a;
       nod:=a;

    writeln('Ќ ЁЎ®«миЁ© ®ЎйЁ© ¤Ґ«ЁвҐ«м зЁбҐ« ',a,' Ё ',b,' = ',nod);
    readln;
  end.