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

Question

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

Answer 1

Var x:real;
begin
readln(x);
if(x>8) then x:= x/4
else x:=x*5;
writeln(x);
end.