Составить программу(pascal): даны числа от 1 до 15 и их надо вывести на экран в виде таблицы

Uses crt;
var i,x,y:integer;
begin
i:=1;
     for x:=1 to 3 do
     begin
         for y:=1 to 5 do
         begin
         write(i:3);
         inc(i);
         end;
     writeln;
     end;
end.