varx: real;beginx := 10; // положительная величинаwriteln('Положительная величина х: ', x);
x := -5; // отрицательная величинаwriteln('Отрицательная величина х: ', x);end.
var
x: real;
begin
x := 10; // положительная величина
writeln('Положительная величина х: ', x);
x := -5; // отрицательная величина
writeln('Отрицательная величина х: ', x);
end.