ввести число ...если оно больше 8 разделить его ** 4, если меньше или равно 8 то умножить...

Question

ввести число ...если оно больше 8 разделить его на 4, если меньше или равно 8 то умножить на пять!

if x>8 then y:=x/4 else y:=x*5

Answer 1

var x,y: real;

begin

  readln(x);

  if x>8 then y:=x/4 else y:=x*5;

  writeln(y);

end.