Написать программу которая выводит на экран числа 897, 910, 923, 936,948, 961 сначала в столбик, а потом в строку. (Pascal)

Четыре первых числа можно представить в виде 897 + i*13, а два последних в виде 897 + i*13 - 1, из-за чего пришлось вводить условие по параметру i.

program wrtln_wrt;

begin

for i: integer: = 0 to 5 do

if i < 4 then writeln (897 + i * 13) else writeln (897 + i * 13 - 1);

writeln ();

for i:integer: = 0 to 5 do

if i < 4 then write ((897 + i * 13) : 4) else write ((897 + i * 13 - 1) : 4)

end.