Pascal/Turbo Pascal - Escribir un programa en turbo Pascal, de sueldo de empleados y números

uses crt;

var

	aumento:real;

	salario:integer;

begin

	clrscr;

	write('Salario del empleado: ');

	readln(salario);

	case salario of

		0..9000: aumento:=salario * 1.20; {20%}

		9001..15000: aumento:=salario * 1.10; {10%}

		15001..20000: aumento:=salario * 1.05; {5%}

		else aumento:=salario;

	end;

	writeln('Nuevo salario: ',aumento:4:2);

end.

uses crt;

var

	i,suma:integer;

begin

	clrscr;

	suma:=0;

	for i:=1 to 50 do

		suma:=suma + i;

	writeln('La suma de los numeros entre 1 y 50 es ',suma);

end.