Программирование процессов с разветвлением!

[KnighTeX]

LAB2.jpg
Помогите написать программу для Паскаля

[Alex Cones]

If X=>2 Then Z:=(2x+1)*Cos(X) Else Z:=Sin(Ln(X)-1);

[KnighTeX]

спасибо))

Только как правильно var записать?

[Olya90]

Держи

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

  var x,z: real;

begin
Write('Enter x:');
read(x);
if x>=2 then z:=(2*x+1)*cos(x) else z:=sin(ln(x)-1);
write('Result:',z:5:6);
readln;
readln;
end.