А ты не из 206 гр.?)))))))))))))))))))))))))))))
а)
var a,b:integer;
begin
read(a,b);
repeat
if a>b then
a:=a-b
else
b:=b-a;
until (a=b);
write(a);
end.
б)
while (a<>b) do