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

Question

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

Answer 1

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

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

Answer 2

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