if x mod 2 0 then

Ответ от Миоко Таканава[гуру]
Ошибку пишет не на else, а на x:=x/2 и на y:=y/2, так как такое / деление вещественное и результат получается не целого типа. При попытке присвоить нецелое число целому типу integer и происходит ошибка.
Замените на x:=x div 2 и y:=y div 2.
div - это целочисленное деление.
В остальном нормально. Можно ещё if x mod 2=0 then заменить на if not odd(x) then
и if y mod 2=0 then на if not odd(y) then, но это не обязательно.
Можно и так:
program xxx;
var x,y:integer;
begin
writeln ('введите два числа');
readln (x,y);
if odd(x) then x:=x*4
else x:=x div 2;
if odd(y) then y:=y*4
else y:=y div 2;
writeln ('ответ',x : 8,y : 8);
readln;
end.