Помогите пожалуйста,очень нужно! вопрос жизни и смерти!

1. С клавиатуры вводится число. Вывести его модуль.

2. С клавиатуры вводится число. Вывести -1, если оно отрицательное, 0, если оно равно 0, и 1, если оно положительное.

//1vara:REAL;beginRead(a);Writeln(abs(a));end.//2vara:REAL;beginRead(a);if (a > 0) then   Writeln(1)    else      if (a = 0) then        Writeln(0)          else            Writeln(-1);end.

1.//PascalABC.NET//Версия 3.3, сборка 1611 beginwrite(abs(ReadReal()));end.2.//PascalABC.NET//Версия 3.3, сборка 1611 beginvar a:=ReadReal();if a<0 then write(-1) else if a=0 then write(0) else write(1);end.