Imports System

Imports System.Globalization

​

Module Paulius

    Sub Main()

        Dim strŽingsniai As String, uintŽingsniai As UInteger

        Dim įvestiesKlaida As Boolean

        Dim uintSuplojimai, uintSpragtelėjimai As UInteger

​

        Console.Write("Kiek žingsnių Pauliui yra iki mokyklos (n)? ")

        strŽingsniai = Console.ReadLine()

        įvestiesKlaida = Not UInteger.TryParse(strŽingsniai, NumberStyles.None, CultureInfo.InvariantCulture, uintŽingsniai)

        If įvestiesKlaida Then

            Console.WriteLine("Neteisingai įvestas žingsnių skaičius.")

            Console.ReadLine()

            Exit Sub

        End If

​

        uintSuplojimai = uintŽingsniai \ 10

        uintSpragtelėjimai = (uintŽingsniai \ 5) - uintSuplojimai

​

        Console.WriteLine($"Kiek kartų Paulius suplojo eidamas iki mokyklos = {uintSuplojimai}, kiek kartų spragtelėjo = {uintSpragtelėjimai}.")

        Console.ReadKey()

    End Sub

End Module