1. Неверны тип данных(Char-символьный тип). Заменить на integer.
2. В цикле While не ставиться ; после do
Объяснение:
var a, b, c, x, y:integer;
begin
read (a, b);
x:=a;
y:=b;
while x*y>0 do
if x>=y then x:=x mod y
else y:=y mod x;
c:=x+y;
write (a*b div c);
end.
Пояснение:
1) char меняем на integer, т.к. значения переменных не символьные, а численные.
2) После команды do не ставится точка с запятой ";".
