ввести число ...если оно больше 8 разделить его на 4, если меньше или равно 8 то умножить на пять!
if x>8 then y:=x/4 else y:=x*5
var x,y: real;
begin
readln(x);
if x>8 then y:=x/4 else y:=x*5;
writeln(y);
end.