Напишите полное решение в Паскале , пожалуйста

1)

Var x:real;
Begin
Write('x = ');ReadLn(x);
if xlt;-3 then Write('f(',x,') = ',x*x+sqrt(x+4))
else if xlt;0 then Write('f(',x,') = ',x+10)
     else Write('f(',x,') = ',1/sqrt(x))
End.


2)

Var
A,B:integer;
S:real;
Begin
Write('A = ');
ReadLn(A);
Write('B = ');
ReadLn(B);
S:=0;
For B:= A to B do
    if B mod 2 lt;gt; 0 then S:=S+B;
WriteLn('S = ',S);
End.


3)

Var
A,k:integer;
Begin
k:=0;
For A:= 100 to 999 do
    if ((A div 100) mod 2 = 0)and(((A div 10) mod 10) mod 2 = 0)and((A mod 10) mod 2 = 0)
       then k:=k+1;
WriteLn('k = ',k)
End.