Giải bài tập Pascal *D2T*

[panda205]

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.

Hôm qua mình nhầm in các số từ 1 đến 300.Bài sửa lại đã test:

uses crt;
var n,i,j,m,k:integer;
begin
clrscr;
write('Nhap vao mot so n=');
readln(n);
writeln('Cac so nguyen to nho hon ',n,' la:');
for i:=1 to n do
begin
k:=0;
m:=round(sqrt(i));
for j:=1 to m do
if i mod j =0 then k:=k+1;
if k=1 then write(i:10);
end;
readln
end.