Перепишите последующую программу без ошибок и обусловьте, какое значение будет иметь

Перепишите последующую программку без ошибок и обусловьте, какое значение будет иметь переменная 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