Programação da semana

Program segundas_feiras;
Uses crt;
Var i: integer;
begin

For i:=1 to 7 do
begin
write('Me. ');
writeln(' You. ');
never ends;

never ends.