Помогите сделать задачу

Мда... Какие только вопросы не задают на форуме, но такой в первый раз!!!

[highlight=pascal]
a := sqrt(b);
[/highlight]

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

З.Ы. автор, правила оформления писаны не для тешения самолюбия модераторов
З.З.Ы. нет, автор, программу мне писать абсолютно лениво, да и паскаля я не помню
З.З.З.Ы. да автор, в гугле, если я прав в моих предположениях, можно абсолютно все найти

program koren;
var a,b:real;
begin
writeln('input a');
b:=sqrt(a);
writeln('rezult b=',b)
end.

ага, только процедуру readln для ввода переменной a забыл ))