Нужно составить цикл с ветвлением)

[sancheszone]

http://file.qip.ru/file/103762401/80...___online.html
вот задание. Нужно составить цикл с ветвлением. Как примерно делать. Напишите хотябы шаблон программы. понять не могу как это все связать(( На той картинке есть ответы которые должны получиться

[alex(21)]

у вас ссылка не рабочая!

[sancheszone]

http://file.qip.ru/file/103762401/80...___online.html

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

var a,Nu,la,l,Re,Pr,v:real;
w:array[1..6] of real = (0.1,0.2,0.5,1,2,5);
i:integer;
begin
v:=0.0000143;
la:=0.026;
pr:=0.7;
l:=1.5;
for i:=1 to 6 do begin
 Re:=w[i]*l/v;
 if re<40000 then
  Nu:=0.66*sqrt(re)*exp(ln(pr)*0.43)
  else
  Nu:=0.037*exp(ln(re)*0.8)*exp(ln(pr)*0.43);
  a:=nu*la/l;
write('w=',w[i]:7:1,'  ','a=',a:7:2,'  ','Re=',re:7:2,'  ','Nu=',nu:7:2);  
writeln;
end;
readln;
end.

[sancheszone]

спс суть понял, но вот только это не считается за ошибку:
real = (0.1,0.2,0.5,1,2,5); {в самом начеле, паскаль ругается}

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

var a,Nu,la,l,Re,Pr,v:real;
w:array[1..6] of real = (0.1,0.2,0.5,1,2,5);
i:integer;

перепишите как

var a,Nu,la,l,Re,Pr,v:real;
i:integer;
const w:array[1..6] of real = (0.1,0.2,0.5,1,2,5);

[sancheszone]

О все норм заработало, спасибо)))