Написать формулы и алгоритм. Для определения: Можно ли перелить содержимое цилиндрического бака в прямоугольный контейнер без потери жидкости.

Объем цилиндра = πR²h, объем параллелепипеда = abh Программа на паскале: var r,h1,a,b,h2,v1,v2:real; begin writeln('Введите данные цилиндра:'); write('R = '); readln(r); write('h = '); readln(h1); writeln('Введите данные параллелепипеда:'); write('a = '); readln(a); write('b = '); readln(b); write('h = '); readln(h2); v1:=pi*r*r*h1; v2:=a*b*h2; writeln('V1 = ',v1:5:2,' V2 = ',v2:5:2); if v1 <= v2  then writeln('Yes') else writeln('No'); end. Пример: Введите данные цилиндра: R = 3 h = 5 Введите данные параллелепипеда: a = 4 b = 6 h = 5 V1 = 141.37 V2 = 120.00 No