Не знаю в чём проблема

[Castro]

вот не могу понять в чём причина не работы программы , а то и так сидел долго мучился типа писал а кодга начал компилировать то вот что вышло плззз помагите )
Код:

Program rechka;
uses crt;
var A:array [1..100] of real;
i,n:integer; s,l,dl,v:real; Q:extanded;
begin
clrscr;
writeln ('введите среднюю скорость реки (м/сек)');
readln (v);
writeln ('введите ширину реки l');
readln (l);
writeln ('введите кол-во измерений глубин');
readln (n);
writeln ('введите значение глубин : ');
for i:=1 to n do
readln (A[i]);
s:=0;
dl:=l/(n-1);
for i:=1 to n-1 do
s:=s+((A[i]+A[i+1])/2*dl);
Q:=86400*v*s;
writeln (' суточный сток реки = ', Q:5:2);
writeln (' площадь попереч. сеч. ', S:3:2);
for i:=1 to n-1 do
writeln (' площадь между глубинами ',i,' i ',i+1,' = ',((A[i]+A[i+1])/2*dl):3:2);
readln;
end.

[Horknee]

Сообщение от Castro

Q:extanded;

Поясните, что это за тип?? Напишите тип real к переменной Q и все будет работать.

[Castro]

Сообщение от Horknee

Поясните, что это за тип?? Напишите тип real к переменной Q и все будет работать.

ОУ да , всё спасибо понял ) просто я писал в блокноте и я не заметил что я не поставил переменную )

[Vigour]

Для extended нужно еще директиву компилятора менять )

[Castro]

Сообщение от Vigour

Для extended нужно еще директиву компилятора менять )

а мож сказать или показать как ?

[Vigour]

{$A+,B-,D+,E+,F-,G-,I+,L+,N+,O-,P-,Q-,R-,S+,T-,V+,X+,Y+}
{$M 16384,0,655360}

Открываешь в паскале файл. Жмешь Crtl+O+O.
Директива N должна быть +, если хочешь юзать extended.