[Konstie]

for i:=17 to 48 do ... ведь?

Просто при реализации такого же сценария со сменными a,b типа real возникают некоторые проблемы.