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