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