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

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

Var a,b,c: byte; begin for a: = 1 to 9 do       for b: = a+1 to 9 do               for c: = b+1 to 9 do                       write(a,b,c,' ') end. var     p: real;     a: integer; begin p: =1; repeat read(a); if a mod 2 < > 0 then p: =p*a; until a = 0; writeln('p = ',p) end. var     n: integer; begin write('n = '); readln(n); for n: = 1 to n do       write(n*n,' ') end.

Var     i, n, summ: integer;   mas: array[1..20] of integer; begin   n : = 0;   summ : = 0;     while n < = 0 do   begin       writeln('enter n (1-20) = ');       read(n);   end;   for i : = 1 to n do   begin         read(mas[i]);         if mas[i] > i then             summ : = summ + mas[i]   end; writeln('sum = ', summ); end.