Составьте которая выводит 6 раз на экран фразу я люблю свою родину! в строку через пробел с while

Program ex1;
var  a: longint;
begin  a := 0;  while a <> 6 do   begin    write('Я люблю свою родину! ');    a := a + 1;  endend.