Почему не работает)))) где исправить...?
Вот в таком виде работает, чуть поправил список в операторах writeln program example; var t,n:integer; begin n:=1; t:=3; writeln('t','n':6); while t<26 do<br> 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