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

Да

А точно только третье?

Да(если не трудно и 4)

3)

Var
   n,m,y:integer;
Begin
Write('n = ');
ReadLn(n);
Write('m = ');
ReadLn(m);
if n gt;= 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 lt; 0 then B:=Tan(x)
else if x gt; 0 then B:=1/Tan(x);
WriteLn('B = ',B);
End.