Program pizma;
var a,b,c,v,sp,sb:real;
begin
read(a);
read(b);
read(c);
v:=a*b*c;
sb:=4*с*(a+b);
sp:=2*(a*b+b*c+a*c);
write('объем=',v,' площадьSb='sb,' и SP=',sp);
end.
Ответ в прикрепленном файле
Sub aaa()
s = InputBox("Введите строку")
n = CInt(InputBox("Введите длину N"))
m = Len(s)
If m > n Then
s = Right(s, n)
Else
If m < n Then s = String(n - m, ".") + s
End If
MsgBox "Результат: " + s, vbInformation
End Sub