ПОМОГИТЕ,ПОЖАЛУЙСТА,ОЧЕНЬ СРОЧНО!!!!!
1.Написать программу нахождения площади полной поверхности куба.
2.Написать программу нахождения площади круга.

1. Площадь поверхности кубаvara, s: integer;beginreadln(a);s:=6*a*a;writeln(s);end.2. Площадь кругаvarr: integer;s: real;beginreadln(r);s:=3.14*r*r;writeln(s);end.