Составить программу вычеслений значения функции:
y={1при x больше или равно 0;
{0 при x<0;</p>
одна фигурная скобка если что ! Составить эту программу в паскале турбо!пожалуйста
Если я парвильно понял задание, то вот var x,y : integer;
begin
readln(x);
if x>=0 then y:=1
esle y:= 0;
writeln(y);
end.