Algoritmia - trabajo de algorismo

uses crt;

var

	cantidadLlantas,precio:integer;

begin

	clrscr;

	write('Cantidad de llantas a comprar: ');

	readln(cantidadLlantas);

	if cantidadLlantas < 5

		then

			begin

				precio:=800*cantidadLlantas;

				writeln('El total a pagar es: ',precio);

			end

		else

			begin

				precio:=700*cantidadLlantas;

				writeln('El total a pagar es: ',precio);

			end;

end.

Habia una vez un Comprador   /* Definicion de la clase Comprador */

	El Comprador tenia un Numero_de_llantas   /* Definicion de la variable Numero_de_llantas */

	El Comprador tenia un Precio_a_pagar  /* Definicion de la propiedad Precio_a_pagar */

	El Precio_a_pagar era  /* Codigo de la propiedad Precio_a_pagar */

		Para el caso del Numero_de_llantas

			Si el valor era <5 el Precio_a_pagar era igual a 800*Numero_de_llantas

			Si el valor era >=5 el Precio_a_pagar era igual a 700*Numero_de_llantas

Cuando la Historia Comienza	 /* Inicio del programa principal */

	Habia una Persona que era un Comprador  /* Instanciacion de la Clase Comprador con la variable Persona */

	Alguien pregunto "Cuantas llantas va a comprar" y el resultado era el Numero_de_llantas

	Alguien dijo "El precio a pagar por " el Numero_de_llantas " llantas es" el Precio_a_pagar de la Persona

Fin de la Historia /* Fin del programa Principal */

Public Class Comprador

        Public Property Numero_de_llantas As Integer

        Public ReadOnly Property Precio_a_Pagar As Double

            Get

                Select Case Numero_de_llantas

                    Case < 5

                        Return 800 * Numero_de_llantas

                    Case Else

                        Return 700 * Numero_de_llantas

                End Select

            End Get

        End Property

    End Class

    Sub Main()

        Dim Persona = New Comprador

        Console.Write("Cuantas llantas va a comprar?")

        Persona.Numero_de_llantas = CInt(Console.ReadLine)

        Console.WriteLine("El precio a pagar por {0} llantas es: {1}", Persona.Numero_de_llantas, Persona.Precio_a_Pagar)

    End Sub

class Comprador

        {

            public int Numero_de_llantas;

            public double Precio_a_Pagar

            {

                get

                {

                    if (Numero_de_llantas < 5)

                    {

                        return Numero_de_llantas * 800;

                    }else {

                        return Numero_de_llantas * 700;

                    }

                }

            }

        }

        static void Main(string[] args)

        {

            Comprador Persona = new Comprador();

            Console.Write("Cuantas llantas va a Comprar?");

            Persona.Numero_de_llantas = Convert.ToInt32(Console.ReadLine());

            Console.WriteLine("El precio a pagar por {0} llantas es {1}", Persona.Numero_de_llantas, Persona.Precio_a_Pagar);

         }