Запишите програму ** языке Паскаль

Question

Запишите програму на языке Паскаль

---

Answer 1

Program p;
var x,y: real;
begin
readln(x);
if x<=0 <br>then y:=0  else *второе условие*;
writeln( y:3:0);
end.

Comments

вроде так,но не точно