Дано слово 'магазин'.при строковых функций написать программу, выводящую это же слово, но по вертикали.

Program n1;
var s: string;
i: integer;
begin
s:='Магазин';
for i:=1 to length(s) do writeln(s[i]);
end.

// PascalABC.NET 3.2, сборка 1387 от 20.02.2017

begin 'Магазин'.Println(NewLine) end.