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

program pr_3;Var n:integer;Writeln('Введите значения');readln(n);case n of1:Writeln('897');2:Writeln('910');3:Writeln(923'');4:Writeln('936');5:Writeln('948');6:Writeln('961');readln;end;degincase n of1:Write('897');2:Write(' ');3:Writeln('910');4:Write(' ');5:Write(923'');6:Write(' ');7:Write('936');8:Write(' ');9:Write('948');10:Write(' ');11:Write('961');end.так попробуй