Question

Составьте программу на Паскале для примера 7. Дам 100 баллов!

Answer 1

var x,f:real;

begin

readln(x);

if x>0 then f:=x else f:=x*1;

writeln(f)

end.