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

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

Это в Паскале.