Напишите программу вычисления площади боковой поверхности куба! Формула-6*h…

Если паскаль, то вот: program altzie; var h: real; beginrepeat write ('Введите h '); readln (a); if a <= 0 then writeln ('Ошибка! Значение h не может быть нулевым или отрицательным. Повторите ввод.'); until h>0; writeln ('Площадь боковой поверхности куба=', (6*h*h); readln; end.