Объем цилиндра = πR²h, объем параллелепипеда = abhПрограмма на паскале:var r,h1,a,b,h2,v1,v2:real;beginwriteln('Введите данные цилиндра:');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 = 3h = 5Введите данные параллелепипеда:a = 4b = 6h = 5V1 = 141.37 V2 = 120.00No