Цикл с ветвлениями

[Jalced]

Решено...

program cikl;
const
g = 9.81;
tg=500;
tv=15;
vyz=0.15;
var
d,nu,gr:real;
begin
d:=0.1;
repeat
gr:=g*sqr(d)*d*(tg-tv)/(sqr(vyz)*(tv+273))*exp(ln(10)*8);
if gr<exp(ln(10)*9) then nu:=0.76*exp(ln(gr)*0.22)
else nu:=0.15*exp(ln(gr)*0.35);
writeln(d:5:3,gr:17:1,nu:7:1);
if d<0.2 then d := d+0.1
else if d<0.25 then d := d+0.05
else d := d+0.025;
until d>0.31;
end.