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

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