program chislo;
var x:integer;
z,y :real;
begin
Readln(x);
y:=5.5;
z:= x-y;
Writeln(z);
end.
при запуске программы вводите эти значения и тестируете.
program chislo;
var x:integer;
z,y :real;
begin
Readln(x);
y:=5.5;
z:= x-y;
Writeln(z);
end.
при запуске программы вводите эти значения и тестируете.