Помогите решить 2 задачи,пожалуйста... 1)Определить является ли введенное с клавиатуры число,положительным.отрицательным,или 0-м. 2)Меньше из 2-х заданных чисел заменить числом 10.

1) Program Pr;var a:integer;BeginWriteln('Введите число');Readln(a);if a>0 then writeln('Число положительно');if a=0 then writeln('Число является 0-эм');if a<0 then writeln('Число отрицательно');end.

2)Program Pr;var a,b:integer;BeginWriteln('Введите 2 заданых числа');Readln(a);Readln(b);if a>b then b:=10 else a:=10;writeln(a);writeln(b);end.

(Проверено и откомпелировано с помощью Pascal.NET)