Даны два натуральных числа x и y, не превосходящие 400. Из заданных

Вот полный код программыvar    x, y: integer;begin    readln(x, y);    while x <> y do        if x > y then x := x - y        else y := y - x;    writeln(x);end.А порядок букв можно и самостоятельно подобрать