A real number x is given. write a program that halves the integer part of x and displays the result.

program zz1;
var s: integer; // introduce an integer variable
x: real; // introduce a variable of real type
begin
write (‘enter the given real number’); // enter a real number from the keyboard
read (x);
s: = trunc (x); // calculate the integer part of the number x
// display the answer in the format of five characters for the number and two characters after the dot
write (‘reduced by 2 times the integer part of the number x =’, s / 2: 5: 2);
end.