может так лучше?

program 123;
uses crt;
var j:real;
begin
clrscr;
k:=1;
while j<=10 do
begin
writeln('T=',-2.4*sqr(j)+5*j-3:5:1);
k:=k+0.5;
end;
readkey;
end.