wow.real-life.lv

На Ницгалес 28 ветеринарная клиника угу...ток ветеринары нынче оч дорого берут, так что готовь кошелёк

обветреную?

until i:=0; ----> until i=0;

Ибо это сравнение, а ты делаешь присвоение.

writelv('Число -',i,);  --> writeln      и нужна ли запятая 2я???

i - не real, а LongInt сделай

Давно очень этот язык последний раз видел, не помню все нюансы.

*В код не в думывался, смотрел синтаксис.
А булеан там в if, т.к. то что в if, это логическое выражение и его результат - булеан.

ну пошли админов куда подальше, и узнаешь есть ли они там или нет.    

должны сегодня после обеда. т.е. уже должны быть...

севодня там светлячки работалти...