uses graph ;
 var
 pikkus, V,V1,V2,vett, laius, sugavus,a,c,b,d,m:integer;
 begin;
writeln('Sisesta palun basseini pikkus, mis tohib olla kuni 80.');
writeln;  readln(a);
writeln('Sisesta palun basseini laius, mis tohib olla kuni 200.');
writeln;  readln(b);
writeln('Sisesta palun basseini sgavus, mis tohib olla kuni 100.');
writeln;  readln(c);
writeln('Palju voiks seal vett olla, mitte rohkem kui 1600000.');
writeln;  readln(V1);
pikkus:=5*a;
laius:=5*b;
sugavus:=5*c;
vett:=V1;
begin
d:=detect; initgraph(d,m,'');
 line(100,300,100,300-sugavus);
 line(100,300,100+laius,300);
 line(100+laius,300,100+laius,300-sugavus);
 line(100,300-sugavus,100+laius,300-sugavus);
 V:=a*b*c;

 V2:=5*round( V1/V*c);
 line(100,300-V2,100+laius, 300-V2);
 setcolor(blue);
 rectangle(100,300-V2,100+laius,300-V2);
 end; readln;
 closegraph;

             end.