8класс
Страница 155 §3.4 номер 13, ГДЗ по информатике за 8 класс к учебнику Босовой
Номер 13. Напишите программу, вычисляющую значение функции:
program z13;
var
x,y:integer;
begin
write('Введи х>');
readln(x);
if x<0 then y:=-1
else if x=0 then y:=0
else y:=1;
writeln('y=',y);
end.