написать программу которая вычисляет объем сферы с предварительной проверкой неотрицательности радиуса сферы

var radius: Integer;beginRead(radius);if(radius<0) thenWriteLn('Радиус не может быть отрицателен')elseWriteln(4/3* pi * exp(ln(radius) * 3));end.