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

var    t, y, a, b: real;begin    readln(t, a, b);    if t < 1 then y := 1    else if t > 2 then y := exp(a * t) * cos(b * t)    else y := a * t * t * ln(t);    writeln('y = ', y);end.