program examiyl2;
uses graph;
procedure bassein(l,s:integer);
 begin
  line(100,400,100+l,400);
  line(100,400,100,400-s);
  line(100+l,400,100+l,400-s);
 end;
var  pikkus, laius,sugavus,hulk:longint;ruumala,korg:real;
     d, m,i,veetase: integer;
begin
 d:=detect; initgraph(d,m,' ');
 writeln('Programm kysib kasutajalt basseinipikkuse, laiuse ja sgavuse ');
 writeln('ning basseinis oleva vee hulga. Programm n„itab veetaset basseinis.');
 writeln('Sisesta basseini pikkus:');
 readln(pikkus);
 writeln('Sisesta basseini laius:');
 readln(laius);
 writeln('Sisesta basseini sgavus:');
 readln(sugavus);
 writeln('Sisesta basseinis olev vee hulk:');
 readln(hulk);
 bassein(laius,sugavus);
 ruumala:=sugavus*pikkus*laius*1.0;
 korg:=hulk/ruumala;
 veetase:=round(sugavus*korg);
 bar(100,400,100+laius,400-veetase);
 readln;
 closegraph;
end.