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

если что-то не получается делайте скриншот ошибки и выставляйте сюда)так легче решить проблему)