Вася очень любит рыбок. Он желает покупать Nr рыб. Он знает,

var

Nr , V1 , Va , Na : real;

begin

 Writeln('Сколько рыбок?');

 readln(Nr);

 while(Nr lt;= 0) do

     begin

       Writeln('Неточное число');

       Writeln('Сколько рыбок?');

       readln(Nr);

     end;

 Writeln('Сколько л. на одну рыбку?');

 readln(V1);

   while(V1 lt;= 0) do

     begin

       Writeln('Неточное число');

       Writeln('Сколько л. на одну рыбку?');

       readln(V1);

     end;

 Writeln('Требуется воды = ', V1*Nr, ' л');

 Writeln('Сколько аквариумов можно разместить?');

 readln(Na);

   while(Na lt;= 0) do

     begin

       Writeln('Неточное число');

       Writeln('Сколько аквариумов можно разместить?');

       readln(Na);

     end;

 Writeln('Какой объем у аквариумов?');

 readln(Va);

   while(Va lt;= 0) do

     begin

       Writeln('Некорректное число');

       Writeln('Какой объем у аквариумов?');

       readln(Va);

     end;

 if (V1*Nr lt;= Va*Na) and (Na lt;= Nr) then  

   begin

     Writeln('Малый объем (в литрах) в аквариуме = ', Va);

   end

 else

   begin

     Writeln('No');

   end;

end.