Question

почему не работает)))) где исправить...?

Answer 1

Вот в таком виде работает, чуть поправил список
в операторах writeln

program example;
var
  t,n:integer;
begin
  n:=1;
  t:=3;
  writeln('t','n':6);
  while t<26 do
  begin
    n:=n+2;
    writeln(t,n:6);
    t:=t+3
  end
end.

t     n
3     3
6     5
9     7
12     9
15    11
18    13
21    15
24    17