написать программу выводящую в столбик десять строк в каждой печатая цифры от 0 до 9

Program n1;var i,i1: integer;beginfor i1:=0 to 9 dobeginfor i:=0 to 9 do write(i,' ');writeln; end;end.