Unit Опции

[V.k.l.chr.by]

Уважаемые форумчане помогите пожалуйста в задаче. Что я не правильно сделал если оно так .И так вот условие:

Используя модуль Unit для вычисления сумм (произведений), построить схему машинного алгоритма и составить Паскаль-программу решения задачи

a1=
t1= a1 *
N £ 5.
А вот само решение моё:
Unit Modul1;
interface
const w=14;q=21;v=12;k=5;
Type
m=array [1..k]of real;
Procedure Pr(zf:m;xf:m;kf:integer);
var
Pro:real;
implementation
Procedure Pr(zf,xf:m;kf:integer);
var
Pro:real;
var
i:integer;
begin
pro:=1;
for i:=1 to kf do
begin
Pro:=Pro*(zf[i]*sqrt(abs(q)))/(sqr(cos(xf[i]))+ln(xf[i]));
writeln(' Pro=' , Pro:6:1);
end;
end;
end.
Program mod1;
uses CRT,printer,Modul1;
var
z,x:m;
i.k:integer;
d2,q2:real;
begin
clrscr;
q2:=ln(w-v)
for i:=1 to k do
begin
writeln('vesti z[' ,i, ']:');
read(z[i]);
writeln('vesti x[' , i, ']:');
read(x[i]);
d2=q2+Pr(z,x,kf);
writeln('d2=' , d2:4:2);
end.

[volvo]

Мне во второй раз ОЧЕНЬ неприятно уличать тебя, НО... Ты во второй строке сверху точку видишь? А после точки я могу написать в программе все, что я думаю о фирме Borland, выпустившей компилятор, заодно упомянуть близких родственников ее управляющего, но на компилятор ЭТО не окажет никакого влияния, он будет исправно выдавать "Compile Successful"... Потому что все то, что находится после точки Паскаль считает комментарием и никакого внимания на это не обращает... Так что смотри на ВЕРХНЮЮ часть программы, до точки, там происходит самое интересное...