Из квадратного листа картона вырезается коробка в форме куба с известной стороной. определить процент неиспользованного материала, если размеры листа заданы.

Sub othod()       d = cells(1, 3)       a = cells(2, 3)       if d < 4 * a then               msgbox "сторона листа d должна быть не менее 4a", vbcritical + vbokonly, "критическая ошибка"               return       else               so = d ^ 2 - 6 * a ^ 2 'суммарная площадь отходов               po = so / d ^ 2 'доля отходов               cells(3, 3) = po       end if end sub остальное во вложении. скачайте файл .txt и замените его расширение на xlsm

пользоветель-это система их бывает много есле создать.

програмист-это человек который создает программу 

program xxx;

  var a,b,c : string;

begin

    write('введите название 1 фигуры-');

    readln (a);  

    write('введите название 2 фигуры-');

    readln (b);  

    write('введите название 3 фигуры-');

    readln (c);

    writeln (' фигуры: ',a,b,c);

    readln

end.