Создать программу которая запрашивает значение вещественного числа x и выводит на экран сумму и разность x 100

Program oji;
var x,c,b:real;
begin
writeln ('Введите дробное число');
readln (x);c:=x+100;
writeln (x,'+',100,'=',c);
b:=x-100;
writeln (x,'-',100,'=',b);
end.
На