Pascal/Turbo Pascal - Ayuda con ejercicios de pascal

uses crt;

procedure ejercicio_1;

Var

	horastrabajadas: Real;

	salario: Real;

	total: Real;

Begin

	clrscr;

	Write('Horas trabajadas al mes: ');

	ReadLn(horastrabajadas);

	Write('Salario por hora: ');

	ReadLn(salario);

	total := horastrabajadas*salario;

	WriteLn('El salario total sera de ',total:4:2);

End;

procedure ejercicio_2;

Var

	edad: integer;

Begin

	Write('Ingrese edad: ');

	ReadLn(edad);

	If (edad>=0) And (edad<=10) Then

		WriteLn('es un infante')

	Else If (edad>=11) And (edad<=17) Then

		writeLn('es un adolescente')

	Else If (edad>=18) And (edad<=30) Then

		WriteLn('es un adulto joven')

	Else If (edad>=31) And (edad<=55) Then

		WriteLn('es un adulto')

	Else

		WriteLn('es un adulto mayor');

end;

{Principal}

begin

	ejercicio_1;

	writeln;

	ejercicio_2;

end.

uses crt;

var

	a,b,s,r,m,d:real;

	opc,n1,n2,modulo:integer;

begin

    clrscr;

    write('Introduzca dos numeros separados con enter: ');

    readln(a,b);

    writeln('Que operacion desea realizar');

    write('1=suma, 2=resta, 3=multiplicacion, 4=division, 5=modulo: ');

    readln(opc);

    case opc of

		1:

			begin

				s:=a + b;

				writeln('La suma es: ',s:4:2);

			end;

		2:

			begin

				r:=a - b;

				writeln('La diferencia es es: ',r:4:2);

			end;

		3:

			begin

				m:=a * b;

				writeln('El producto es: ',m:4:2);

			end;

		4:

			begin

				d:=a / b;

				writeln('El resultado es: ',d:4:2);

			end;

		5:

			begin {la operacion modulo solo es para numeros enteros}

				writeln;

				write('Primer numero: ');

				readln(n1);

				write('Segundo numero: ');

				readln(n2);

				modulo:=n1 mod n2;

				writeln('El modulo es: ',modulo);

			end;

	end;

end.

uses crt;

var

	mayor,a,b,c:integer;

BEGIN

	clrscr;

	write('Ingrese 3 numeros separados por enter: ');

	readln(a,b,c);

	if (a > b) and (a > c) then

		mayor:=a

	else if (b > a) and (b > c) then

		mayor:=b

	else

		mayor:=c;

	writeln('El mayor es: ',mayor)

END.

program guia_3

;uses wincrt;

var

grupo:char;

begin

clrscr;

write('Introduzca una letra entre A y G para saber a que grupo de futboll pertenece :');

read(grupo);

CASE UPCASE (Grupo) of

'A':writeln('Grupo A');

'B':writeln('Grupo B');

'C':writeln('Grupo C');

'D':writeln('Grupo D');

'E':writeln('Grupo E');

'F':writeln('Grupo F');

'G':writeln('Grupo G');

Else

write('no existe esta letra');

end;

end.

uses crt;

var

	monto,desc:real;

begin

	clrscr;

	write('Monto de la compra: ');

	readln(monto);

	if monto < 1000 then

		writeln('No tiene descuento')

	else if (monto >= 1000) and (monto <= 10000) then begin

		desc:=monto * 0.09;

		writeln('Tiene un descuento del 9%, el total a pagar es: ',monto-desc:4:2);

	end

	else if (monto > 10000) and (monto <= 30000) then begin

		desc:=monto * 0.15;

		writeln('Tiene un descuento del 15%, el total a pagar es: ',monto-desc:4:2);

	end

	else begin

		desc:=monto * 0.18;

		writeln('Tiene un descuento del 18%, el total a pagar es: ',monto-desc:4:2);

	end;

end.