Ввести число.Если оно четное,поделить его на 4,если нечетное-умножить на 5 (Паскаль)

program zz1;

var a:integer; // вводим переменную целого типа

b:real;// вводим переменную не целого типа

begin

write( введите данное число );  // вводим с клавиатуры число

read(a);

if a mod 2 = 0 // проверяем условие, если исходное число четное, то

then b:= a / 4  // вычисляем ответ, разделим исходное число на четыре

else b:= a * 5; // вычисляем ответ, умножив исходное число на 5

write( Приобретенный ответ = , b:5:2); // выводим ответ в формате пять знаков для всего числа и два знака после точки

end.