Ввести число. Если оно четное, разделить его на 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; / / вычисляем ответ, умножив исходное число на пять

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

end.