Помогите пожалуйста зделать задание по информатике
Номер 12 и 13
12.
а=5
13.
begin
var
x:integer;
readln (x);
if x<0 then y:=-1;
if x=0 then y:=0;
if x>0 then y:=1;
end.
Оцени ответ
