информатика паскаль хелп ми​

Ответ:

program HelloWorld;

   var t, y, a, b: real;

begin

   a := -0.5;

   b := 1;

   writeln('Input t');

   read(t);

   if (t >= 1) and (t <= 2) then  

       y := a * (t * t) * Ln(t) ;  

   if t < 1 then

       y := 1;

   if t > 2 then

       y := Exp(a * t) * Cos(b * t);

   writeln(y);

end.

Объяснение: