(Паскаль) Исправить программный, доисторический код

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 не ставится точка с запятой ";".