Program cube; ; var a,S,V:real;
begin;
write('Введите длину ребра куба: ');
read(a);
V:=power(a,3);
s:=6*sqr(a);
write('Площадь равна 's,', а объём равен "v, .');
end.

Перевести на С

Код:

using System;namespace ThisAnswerIsNotMine {    class Program {        static void Main()        {            double a, S, V;            Console.Write("Введите длину стороны куба: ");            if (double.TryParse(Console.ReadLine()!, out a)) return;            V = a * a * a;            S = 6 * Math.Sqrt(a);            Console.WriteLine($"Площадь равна {S}, а объём равен {V}.");        }    }}