Написать программу которая выводит на экран числа 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 doif i < 4 then writeln (897 + i * 13) else writeln(897 + i * 13 - 1);

writeln();

for i:integer:= 0 to 5 doif i < 4 then write ((897 + i * 13) : 4) else write((897 + i * 13 - 1) : 4)

end.