Написать цикл do while в котором к заданному числу прибавляется 10 до тех пор, пока сумма не станет больше 1000

//Pascal ABC.NET 3.1 сборка 1219

Var
 a:integer;
begin
readln(a);
while (a<=1000) do
 a:=a+10;
writeln(a);
end.

Пример ввода:
567
Пример вывода:
1007

' Вариант на VBScript
Sub Zadanie()
    a = CInt(InputBox("a ="))

    Do While a <= 1000
        a = a + 10
    Loop
    MsgBox a
End Sub

' Вариант на для VB.Net
Module Module1

    Sub Main()
        Dim a As Integer
        Console.Write("a=")
        a = CInt(Console.ReadLine())

        Do While a <= 1000
            a = a + 10
        Loop
        Console.WriteLine(a)
    End Sub

End Module