Неозаглавленный

program dhfjdskfh;
var
  x, result: real;
  begin
  write('Введите вещественное число: ');
  readLn(x);
if x > 0 then
    result := x + 2
  else
    result := x - 4.6;
writeLn('Полученное число: ', result:0:2);
end.