Вычислить площадь поверхности шара план работы. 1. условия . 2. модель. 3. список переменных с их расшифровкой. 4. блок-схема алгоритма. 5. программный код.

1) Есть
2)
3) R - радиус, S - площадь
4) Прил.
5) 
var
  S, R: real;
begin
  Readln(R);
  S := 4 * pi * sqr(r);
  writeln(s);
end.