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

Program pr_3;
Var n:integer;
Writeln('Введите значения');
readln(n);
case n of
1:Writeln('897');
2:Writeln('910');
3:Writeln(923'');
4:Writeln('936');
5:Writeln('948');
6:Writeln('961');
readln;
end;
degin
case n of
1: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.
так попробуй