Дано число n.Если n>7,то увеличить его на 2,в противном случае уменьшить в два раза

Изображение алгоритма

Program znanija;

var n: real;

begin

 writeln('Введите n: ');

 readln(n);

   if n > 7 then

  n:= (n*2)  

   else

  n:= (n/2);

 writeln(n);

end.

Объяснение:

Если для надо на паскале, то так.