Написать систему. от введённого с клавиатуры нечётного числа найти 18% ,чётное число увеличить на 19%

Program s;
var
a:integer;
begin
readln(a);
if a mod 2 = 0 then write(a*1.19) else write(a*0.18);
end.