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

[Smileeeee[D2T Physics]]

var j:integer;
function nguyento(z:integer):boolean;
var i:integer;
begin
nguyento:=true;
for i:=1 to (sqrt(z)div 1) do
if z mod i=0 then nguyento:=false;
end;begin
clrscr;
for j:=1 to 300 do if nguyento(j) then
write(j:4);
readln
end.

Anh ơi em chưa học đến cái function vs lại em viết chương trình k chạy đc