Нада решить задачки в Паскаль.Очень срочно!!!

[RAVEN23]

№1
имеется фрагмент програмы в виде оператора цикла с парамеиром,
обезпечивающий вывод на екран "столбиком" квадратного корня из
из всех целых чисел од а до b(a>b).
a)оператором цикла с предусловием;

[manechka]

readln(a,b);
if a<b then begin
i:=a;
while i<b do
begin
writeln(sqrt(i):6:2);
i:=i+1;
end;
end;

[Utkin]

Только один минус. Если препод будет хитрый и скажет, что а=-1 прога вылетит. Желательно перед i:=a провести проверку а на предмет положительности и если нет такого, то и сообщать об этом пользователю (или как-то иначе решать этот вопрос: типа a:=0; ).

[Utkin]

И кроме того i:=i+1 лучше заменить на Inc(i); Ну это не всем преподам известно...

[RAVEN23]

спасибо большое