function NT(n: integer): boolean;
var i: integer;
begin
NT:=true;
for i:=2 to n-1 do
if n mod i = 0 then NT:=false;
end;
var i: integer;
begin
write('Cac so sieu nguyen to cap do 2: ');
for i:=100 to 10000 do
if (NT(i) and NT(i div 10) and NT(i div 100)) then write(i:6);
readln
end.

Lưu thì Ctrl + S hoặc vào File chọn Save nhé