Ответ:

program chislo;

var x:integer;

      z,y :real;

begin

Readln(x);

y:=5.5;

z:= x-y;

Writeln(z);

end.

 

при запуске программы вводите эти значения и тестируете.