С цикла while вывести строчку любой песни 25 раз

n = 0

while n != 25:

   print('Мороз и солнце; день чудесный!')

   n += 1

на пиксель приходится 512*8/32²=4 бита.  2^4=16 цветов.

var 

i,n: integer;

begin

readln(n);

for i: =1 to n-1 do write(i*i: 5);

end.