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

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