что то типо такого??? напишите нормально или фото.
var x,y:integer;begin cls;read(x,y);if x = y thenwrite(x)else if x > y then x:=x-y else y:=y-x;readln;end.
что то типо такого??? напишите нормально или фото.
var x,y:integer;
begin cls;
read(x,y);
if x = y then
write(x)
else if x > y then x:=x-y else y:=y-x;
readln;
end.