Pascal вывести на экран 5 строк с ручным вводом текста. например с новым годом!

Program dd;
var a:string;
i:integer;
begin
readln(a);
for i:=1 to 4 do 
writeln(a);
end.