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

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

program wrtln_wrt;
begin

for i: integer:= 0 to 5 do
if i lt; 4 then writeln (897 + i * 13) else writeln(897 + i * 13 - 1);

writeln();

for i:integer:= 0 to 5 do
if i lt; 4 then write ((897 + i * 13) : 4) else write((897 + i * 13 - 1) : 4)

end.