Question

Ввести число, если оно больше 10, то разделить его на 2, если меньше или = 10, то умножить на 5 (с помощью алгоритма с ветвлением) 

Answer 1

var
n:real;
begin
readln(n);
if n>10 then
n:=n/2
else
n:=n*5;
writeln(n);
end.