Подпрограмма

[Maks6169]

мне нужно в моей программе сделать подпрограмму и чтобы данные вводились с клавиатуры, помогите плз, про клавиатуру необязательно.

program metod_kasatel;{Название программы}
uses Crt; {Модуль дисплейных функций}
var {Блок описаний переменных}
xn,xn1,a,b,c,mx,y0,x0 :real;
function f1(x1:Real): Real; {Основная функция}
begin
f1 := x1*x1*x1*(-0.5)-0.05*x1*x1+0.8*x1+0.6;
end;
function f2(x4:Real): Real; {Производная от основной функции}
begin
f2 := x4*x4*x4+0.5*x4*x4+0.1*x4*x4+0.4*x4 –1.2;
end;
function f3(x8:Real): Real; {Основная функция}
begin
f3 := x8*x8*x8*(-0.5)-0.05*x1*x1+0.8*x1+0.6;
end;

begin {Начало основного тела программы}
Clrscr; {Очистка экрана перед выполнением программы}
a:=0;b:=1;c:=0.00000001;
Writeln(' От A=',a,' до B=',b); {Вывод на экран}
Writeln(' Погрешность с=',c);
Readln; { Ожидание нажатия клавиши Enter}
xn:=b;
xn1:= f1(xn);
y0:=f2(b);
begin {Тело цикла}
xn:=xn1;
xn1:=f1(xn);
y0:= f2(xn1);
{Печать промежуточного результата}
Writeln('xn=',xn,' xn+1=',xn1,' f(xn+1)=',y0);
Readln; { Ожидание нажатия клавиши Enter}
end; {Конец тела цикла}

Writeln('Конечные значения'); {Печать полученного результата}
Writeln(' xn+1=',xn1,' f(xn+1)=',y0);
Readln; { Ожидание нажатия клавиши Enter}
End;{Конец основного тела программы}
Assign (fi,’Kurs.txt’);
Rewrite (fi);
Writeln(fi,’корни уравнения’);
Writeln (fi,’xn’);
Writeln(fi,xn);
Writeln(fi,’xn+1’);
Writeln(fi,xn+1);
Close(fi);
End.

[Alt]

Оформи по-нормальному код!

[Maks6169]

вот эта прога

[Maks6169]

сделайте ктонибудь в этой программе подпрограмму! оч надо!!!

[ОДИНОЧЕСТВО В СЕТИ]

Стучи в аську! Сделаю за плату!