Помогите составить выражение для программы Pascal Выражение номер 3НАПИСАТЬ ДЛЯ СТАРОЙ...

3)

Var
n,m,y:integer;
Begin
Write('n = ');
ReadLn(n);
Write('m = ');
ReadLn(m);
if n >= m then y:=4*n+2*m
else y:=4*n-2*m;
WriteLn('y = ',y);
End.

4)

Var x,B:real;
Begin
Write('x = ');ReadLn(x);
if x < 0 then B:=Tan(x)
else if x > 0 then B:=1/Tan(x);
WriteLn('B = ',B);
End.