С клавиатуры вводят целое число.Если оно положительное-увеличить его пять раз на два,иначе вывести сообщения ,что оно не положительное

x:= x*(2*5);

writeln(x);

end

else writeln('Число отрицательно');

end.

program ez;var x: integer;beginreadln(x);if x>0 thenbeginx:= x*(2*5);writeln(x);endelse writeln('Число отрицательно');end.Это в Паскале.