ПОМОГИТЕ ПОЖАЛУЙСТА - ПАСКАЛЬ! через IF
С клавиатуры вводятся радиус шара, высота цилиндра. Радиус шара и радиус цилиндра одинаковы. На экран вывести какой объем фигур больше и на сколько.
ФОРМУЛЫ
объем цилиндра 2πR*h
4/3*πr2(в квадрате)

Точно так же и объем цилиндра у Вас в квадратных единицах? v1:=2*pi*r*h; ?

А учитель информатики математику в школе не учил ?

Объем шара V = 4/3pi*r^3, объем цилиндра V = pi*r^2*H

var r,h:integer;v1,v2:real;beginwriteln('Ввод радиуса: ');readln(r);writeln('Ввод высоты цилиндра: ');readln(h);v1:=2*pi*r*h;v2:=4/3*pi*(r*r);if v1>v2 then write('Объем цилиндра больше')else write('Объем шара больше');end.