Ответ:
var i:integer;
begin
for i:=1 to 10 do writeln(i:2,' * 2 = ',i*2)
end.
Function func32771914() As String
Dim i As Single, S As String
For i = 0.12 To 1.88 Step 0.12
S = S & Cos(i ^ 2) + 5 / i ^ 3 - 2 & ";"
Next
func32771914 = S
End Function
Excel VBA