Помогите плиз очень срочно с заданием по информатике
Написать программу которая для введённой стороны А находит: 1)площадь квадрата; 2) площадь куба, объем куба

​

Ответ:

Float a, skv, skb v;

Edit1.Text := StrtoInt(a) ;

skv := a * a;

skb := a * a *6;

v := a * a * a;

Label1.Caption := Площадь квадрата = InttoStr(skv) ;

Label2.Caption := Площадь Куба = InttoStr(skb) ;

Label2.Caption := Объём куба = InttoStr(v) ;

Объяснение: