Написать программу, которая для случайно введенных с клавиатуры числе а, в, с выполняет действия:а) Четные числа делит на 2 и результат выводит на экранб) нечетные числа выводит на экран без изменений

Var a,b,c:integer;
begin
read(a,b,c);
if odd(a) then write(a, )
else write(a/2, );
if odd(b) then write(b, )
else write(b/2, );
if odd(c) then write(c, )
else write(c/2, );
end.