Из паскаля в VBA - VBA (251644)

Формулировка задачи:

Program ololo;
var a, b, s1, s2:real;
begin
writeln("введите радиус круга");
readln(a);
s1:=3.14*a*a;
writeln("введите сторону квадрата");
read(b);
s2:=b*b;
if s1>s2 then write("Площадь круга больше") else if s2>s1 then write("Площадь квадрата больше") else write("Площади равны");
end.

Решение задачи: «Из паскаля в VBA»

textual
                            Листинг программы 
                        

                            Sub ololo()
  MsgBox Array("Площадь круга больше", "Площади равны", "Площадь квадрата больше") _
    (Sgn(InputBox("Введите сторону квадрата") - InputBox("Введите радиус круга") / Sqr(3.14)) + 1)
End Sub
                        