Неозаглавленный
123456789101112131415
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.
Pascal
INFO