Программирование, задача "Попугай".

Очень легкая задача, поэтому решай ее сама :)

PascalABC.NET: begin
var a:array[1..3] of string;
for var i:integer:=1 to 3 do
readln(a[i]);
for var i:integer:=1 to 3 do
println(a[i])
end. Дерзайте знать! ;)