Exemplo de For;

Program Pzim ;
var
n:string;
cont:integer;
 Begin
 writeln('Digite seu nome');
 Readln(n);
 for cont:=1 to 7 do
 begin
 writeln(n,' seu nome está sendo repetido 7 vezes');
 end;