Мне нужна программа паскаль с циклом : ежедневно температура воздуха июля повышалась на пол градуса. какая температура была 20 июля, если 1 июля - 23 °?

Uses crt;
var i:integer;
t:real;
begin
t:=23;
for i:=1 to 20   do
  t:=t+0.5;
writeln(t)  ;
end.