В сосуд прямоугольной формы со сторонами равными А и В и высотой Нс налита вода до уровня Н1

var
a,b,hs,h1,d,hc,vs,vc,vv,v:real;
begin
writeln('Введите размеры сосуда а,b,hs');
read(a,b,hs);
writeln('Введите высоту воды');
readln(h1);
writeln('Введите диаметр и высоту цилиндра d,hc');
read(d,hc);
vs:=a*b*hs;            {объем сосуда}
vv:=a*b*h1;            {объем воды}
vc:=pi*d*d*hc/4;     {объем цилиндра}  
v:=vv+vc;               {объем сосуда с цилиндром}
if v>vs then writeln('no')
 else begin
writeln('yes');
writeln('vysota=', v/a/b:3:2);
end;
end.