Написать программу вычисления значений функций в заданных точках

Var
    t, y, a, b: real;

begin
    readln(t, a, b);
    if t lt; 1 then y := 1
    else if t gt; 2 then y := exp(a * t) * cos(b * t)
    else y := a * t * t * ln(t);
    writeln(y = , y);
end.