Если я парвильно понял задание, то вотvar x,y : integer;
begin
readln(x);
if x>=0 then y:=1
esle y:= 0;
writeln(y);
end.
