Написать программу которая выводит на экран числа 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.

так попробуй