// PascalABC.NET 3.3, сборка 1600 от 23.12.2017
// Внимание! Если программа не работает, обновите версию!
function f(t:real):real;
begin
var a:=20.3;
if t<1 then Result:=a*t*t<br> else
if t<=2 then Result:=Ln(t)<br> else Result:=Exp(a*t)
end;
begin
Writeln('y=',f(ReadReal('Введите t:')))
end.
Пример
Введите t: 2.51
y=1.34464219834909E+22