Program Membuat deret

 Cek ebroot GAn :

uses crt;

var

   a,b : integer;
begin
     for a := 1 to 5 do
     begin
          for b:= 1 to 5 do write (a:4,b:2);
          writeln;
     end;
     readln;
end.