Программа в Delphi с параметром

[NooBito]

Собственно вот программа, выдает ошибку "[Error] Project1.dpr(27): ')' expected but ';' found" это третья строка снизу. Подскажите пожалуйста, уже все перепробовал

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

label 1;
Var T1, k, P2, M, B, Bkr, W, a, R:Real;
    n, i:integer;
    P1: array [1..6] of Real;
  Begin
  { TODO -oUser -cConsole Main : Insert code here }
  write ('Vvod T1, k, P2, M');
  readln (T1, k, P2, M);
  Write ('Vvod P1[i]: ');
  for i:= 1 to 6 do
  Readln (P1[i]);
  a:=k/(k-1);
  R:= 8314/M;
  for i:= 1 to 6 do
     Begin
     B:=P2/P1[i];
     Bkr:=exp(ln(2/(k+1))*a);
     If (B<Bkr)
         then W:=2*a*R*T1 else
         If (B>Bkr) then W:=sqrt(2*a*R*T1*(1-(exp(ln(P2/P1[i])*1/a)));
     writeln ('Bkr= ', Bkr:5:2, 'P1[i]= ', P1[i]:5:2, 'W= ', W:5:2);
     readln;
    1:end;
      end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[NooBito]

Вот сама задача

[ZX Spectrum-128]

Ошибка в строке выше. Не хватает )

[NooBito]

Я ставлю точку с запятой после условия, ошибка на эту точку с запятой, убираю её ошибка на вывод

[ZX Spectrum-128]

         If (B>Bkr) then W:=sqrt(2*a*R*T1*(1-(exp(ln(P2/P1[i])*1/a)));

В этой строке не хватает )

[Serge_Bliznykov]

баланс скобок не соблюдён, в конце закрывающей скобки не хватает:

f (B>Bkr) then W:=sqrt(2*a*R*T1*(1-(exp(ln(P2/P1[i])*1/a))));

я бы label 1 выкинул, тем более, что Вы ей не пользуетесь!

[NooBito]

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

баланс скобок не соблюдён, в конце закрывающей скобки не хватает:

f (B>Bkr) then W:=sqrt(2*a*R*T1*(1-(exp(ln(P2/P1[i])*1/a))));

я бы label 1 выкинул, тем более, что Вы ей не пользуетесь!

Вот черт, час сидел тупил

[NooBito]

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

label 1;
Var T1, k, P2, M, B, Bkr, W, a, R:Real;
    i:integer;
    P1: array [1..6] of Real;
  Begin
  { TODO -oUser -cConsole Main : Insert code here }
  writeln ('Vvod T1, k, P2, M');
  readln (T1, k, P2, M);
  Write ('Vvod P1[i]: ');
  for i:= 1 to 6 do
  Readln (P1[i]);
  a:=k/(k-1);
  R:= 8314/M;
  for i:= 1 to 6 do
     Begin
     B:=P2/P1[i];
     Bkr:=exp(ln(2/(k+1))*a);
     If (B<Bkr)
         then W:=2*a*R*T1 else
         W:=sqrt(2*a*R*T1*(1-(exp(ln(P2/P1[i])*1/a))));
     writeln ('Bkr=', Bkr:5:2, ' P1[i]=', P1[i]:5:2, ' W=', W:5:2);
     readln;
    1:end;
      end.