Напишите программу,которая считывает 3 вещественных числа и заменяет каждое чётное значение его частным при делении на 2 и нечётное значением числа 2- Pascal(Паскаль)

Uses
 crt;
var
 a,b,c: integer;
begin
 clrscr;
 writeln('Введите 3 числа');
 readln(a,b,c);
 if a mod 2= 0 then a:=round(a/2)
 else a:=2;
 if b mod 2= 0 then b:=round(b/2)
 else b:=2;
 if c mod 2= 0 then c:=round(c/2)
 else c:=2;
 writeln('a=',a,' b=',b,' c=',c);
 readln
end.