ввести число …если оно больше 8 разделить его на 4, если меньше или равно 8 то умножить на пять! if x>8 then y:=x/4 else y:=x*5

Вопрос пользователя:

ввести число …если оно больше 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.