Даны два натуральных числа 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.

А порядок букв можно и самостоятельно подобрать