for to do

program perulangan;
uses wincrt;
var
 i: integer;
begin
 for i:= 1 to 5 do
  begin
   writeln(i);
   writeln('kunjungi copy paste blog');
   writeln('curhat-zackrdbll222@gmail.com');
  end;
 end.