Nay chỉ học C++ nên anh không nhớ rõ pascal lắm.Em thử cái này xem(Không biết cấu trúc có đúng không.Lâu ngày không học mà ):
var n:integer;
begin
clrscr;
for i:=1 to 300 do
write(n:4);
readln
end.