Question

Помогите пожалуйста зделать задание по информатике
Номер 12 и 13

Answer 1

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.