Я думаю что правильный ответ это а) т. к 3D принтер создает обьект который можно взять в руки и ощутить!
Подправишь где надо, потом сохранишь как написал выше.
Var a,b :real;
begin
Write('Введите 2 числа а и b'); ReadLn(a,b);
Write('Среднее геометрическое чисел ',a, ' и ',b,' = ',sqrt(a*b));
end.
КОд не написал, но так-как делал сам уже, скажу что это число 3, либо ответ В)