Бывают такие ситуации, что нужно удалить все файлы из какой-либо папки. Но Windows этого не даёт. Вот бы хорошо было, если бы он удалял не все файлы. а только те, которые может! Данная программа именно это и будет делать:

if Question('Удалить все файлы данной папки?')<>1 then Exit
Message('Введите число 3 если Вы так уверены')
if InputInteger('')<>3 then Exit

ShowConsole()

path0=''

procedure DelPath(path)
GetFiles(path, CountFiles, Names[], IsFiles[])
for i=0 to CountFiles-1 do begin
try
if IsFiles[i]=0 then begin
FileDelete(Names[i])
writeln(path+''+Names[i])
end
else begin
DelPath(path+''+Names[i])
end
except
end
end
if path<>global.path0 then begin try PathDelete(path) except end end
EndProcedure

PathSelect('', path0)
DelPath(path0)

Message('Готово!')



Вот ещё одна программка, для расчёта алкоголя в крови:

write('Ваш вес, кг: ') m=readlnfloat()
write('Алкоголь, %: ') a=readlnfloat()
write('Количество принятого (мл): ') k=readlnfloat()

p=(a/100*k/100)/(m/100)

pm = 1/0.7*p
pw = 1/0.6*p

hm = pm/0.1
hw = pw/0.1

writeln('За 1 час выводится где-то 0.15 промилле -- будем на всякий случай считать, что 0.1')
writeln('Промилле (если мужчина): '+floattostr(pm,2)+' ('+floattostr(hm,2)+' час.)')
writeln('Промилле (если женщина): '+floattostr(pw,2)+' ('+floattostr(hm,2)+' час.)')

pause()



Более сложные проекты, состоящие из нескольких сотен строк кода, публиковать не буду, т. к. это слишком сильно увеличит размер статьи.