Код
program easy;
const pr=10;
var re,i:longint;
function nu1(re1:longint):real;
begin
nu1:=(0.023*exp((4/5)*ln(re1))*pr)/(1+2.14*exp((-1/10)*ln(re1))*(exp((2/3)*ln(pr))-1));
end;
function nu2(re2:longint):real;
begin
nu2:=0.023*exp((4/5)*ln(re2))*exp((2/5)*ln(pr));
end;
Begin
for i:=1 to 10 do
begin
if i=1 then re:=5000
else inc(re,5000);
writeln(re,' ',nu1(re):0:1,' ',nu2(re):0:1);
end;
end.