Как это перевести анологично этой программе

Question

Как это перевести анологично этой программе

---

---

Answer 1

var
  r: real;

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

Comments

спасибо огромное