Ответы и объяснения

2014-03-07T10:17:05+04:00
var
  r: real;

begin
  writeln('Width: ');
  readln(r);
  writeln('S1 = ', sqr(r));
  writeln('S2 = ', sqr(r) * 6);
  writeln('V = ', sqr(r) * r);
end.