Спо информатике
написать программу которая для введённой стороны а находит: 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) ;

Объяснение: