Нужна помощь.А. Напишите программу подсчета количества положительных, отрицательных чисел и

Нужна помощь.
А. Напишите программку подсчета количества положительных, отрицательных чисел и чисел, одинаковых нулю.

В. Перепишите последующую программку без ошибок и обусловьте, какое значение будет иметь переменная P после исполненья программки, если с клавиатуры введено число 10?

PROGRAM OL;

Var a;b;h:integer

BEGIN

WriteLn(Введите число );

ReadLn(a);

If agt;=2 and alt;=14

then

begin

b:=3;

p=a*a+b*b

end;

else b:=5;

p:=(a+b)*(a+b);

WriteLn(p=p);

END