Перевести из turbo pascal в visual basic var a: real; begin write('введите a> =1: '); readln(a); if a< 1 then writeln('ошибка: а< 1') else begin if 1/a> sin(a) then writeln('1/a больше, чем sin(a)'); if 1/a end; readln; end.

Dim a As Double
a = InputBox("Введите a>=1:")

If a < 1 Then
    MsgBox ("Ошибка: à<1")
Else
    If (1 / a) > Sin(a) Then MsgBox ("1/a больше, чем sin(a)")
End If