Помогите переделать прогрсмму в Pascal

Есть рабочая программа:

Program Metod_Left_Pryam;
{kosinets A; 10A; version 1.0}

var
y, x, S, h, k : real ;

var
n, i : integer;

const
a = 0;
b = 1;

BEGIN
write ('Давай n! ');
readln (n);
{вычисление площади 1/4 единичного круга}
h := (b-a)/n;
S := 0;
i := 0;
x := a;
while i <= n-1 do
begin
S := S + sqrt(1 - x*x);
x := x + h;
i := i + 1;
end;
y := h*S;
{вычисление площади всего круга}
{т.к площадь всего единичного круга будет равна пи}
k := y*4;
writeln ('Пи равно : ', k);
END.


Ее надо переделать в другую.
Переделанная должна пользоваться if вместо while

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.