Question

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

Answer 1

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

Answer 2

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