Ввести число.Если оно четное разделить его на 4,если нечетное трудность на 5

Вопрос школьника по предмету Информатика

Ввести число.Если оно четное разделить его на 4,если нечетное трудность на 5

Ответ учителя по предмету Информатика

var a: integer;

begin

write(‘a = ‘);

readln(a);

if (a mod 2) = 0 then a := a div 4

else a := a*5;

writeln(‘a = ‘, a);

end.