Составить программу которое уменьшает первое введённое число в два раза больше

var

x:real;

begin

writeln('напишите число');

readln(x);

writeln('Ваше число: ', x/2);

writeln

end.