Var x, y, a, nod:integer;
nok:real;
begin
readln(x,y);
a:=x*y;
repeat if x > y then x:=x mod y
else y:=y mod x
until x*y=0;
nod:=x+y;
writeln(nod);
nok:=a/nod;
writeln(nok);
end.
Акие можно использовать символы в имени файла? В именах файлов рекомендуется использовать русские и латинские буквы, цифры, пробелы и знаки препинания. Однако имя файла не следует начинать с точки, а также использовать в имени квадратные [ ] или фигурные { } скобки. Недопустимыми для имен файлов являются следующие служебные символы / \ | : * ? “ < >