Программирование на Pascal. Закрепление

Задача 1. Вычислить объем шара V с радиусом R

PROGRAM Pr1;
CONST PI=3.14;
VAR
R, V : REAL;

BEGIN
WRITELN (‘введите значение радиуса R:’);
READ (R);
______________
WRITELN;
WRITELN (‘РЕЗУЛЬТАТ’);
WRITELN (‘объем шара =‘ , ______);
readln;
END.

PROGRAM PR2;
VAR
A,B, H : REAL;
S : REAL;
BEGIN
WRITELN (‘введите значения A, B, H:’);
READ (______);

________________________________
WRITELN;

WRITE (‘площадь трапеции= ’,__________);
readln
END.

Задача 3. Вычисление корней квадратного уравнения

Program ____;

Var

_____________

_____________

Begin