Записать программы C++ на Pascal

var x, a, b, s : real;

const e : real = 2.71;

begin

a := 0.5;

b := 0.8;

writeln( 'Введите x= ' );

read( x );

if ( x <=1 ) and ( x >= -1 ) then

begin

  s := exp( - a * x * ln( e ) ) * cos( x ) + exp( - b * x * ln( e ) ) * sin( x );

  write( 'S=' );

  writeln( s );

end

else

  writeln( 'Вычисление невозможно' );

end.

var z, x : real;

var a, b : integer;

const e : real = 2.71;

begin

a := 1;

b := 3;

writeln( 'Введите x= ' );

read( x );

if ( x >= 2 ) then

begin

  z := sin( a*x );

  write( 'Z=' );

  writeln( z );

end

else  if ( x < 2 ) then

begin

  z := exp( -a*x * ln( e ) ) * cos( b*x );

  write( 'Z=' );

  writeln( z );

end

end.

Объяснение: