A Program to arrange sets of students scores and their average in ascending order (Bubble sort)
program ascendingorder(input,output);
{program to arrange a set of numbers in ascending order}
uses wincrt;
const
lo=1;
hi=10;
type
intarraytype=array[lo..hi] of integer;
procedure insertion_sort(var intarray:intarraytype;n:integer);
var i,j,temp:integer;
begin
for j:=1 to n do
begin
temp:=intarray[j];
{move all larger than key to the right}
i:=j-1;
while((i>=1)and (intarray[i]>temp)) do
begin
intarray[i+1]:=intarray[i];
i:=i-1;
end;
{insert current value into proper place}
intarray[i+1]:=temp;
end;
end;
procedure display_array(intarray:intarraytype;n:integer);
var i:integer;
begin
for i:=1 to n do
write(intarray[i]:4);
writeln;
writeln;
end;
var
nums:intarraytype;
nums_length,k:integer;
begin
writeln(' input the values you want to sort:');
for k:=1 to 10 do
begin
readln(nums[k]);
end;
nums_length:=10;
writeln('values to be sorted');
display_array(nums,nums_length);
insertion_sort(nums,nums_length);
write('values in ascending order:');
display_array(nums,nums_length);
end.

A program to read in the data of a student and get or calculate his age.
(*A program to read in the data of a student and get or calculate his age*)
Program Ages (input,output);
uses wincrt;
var age:integer;
name :string;
begin
Writeln('What is your name?');
read(name);
writeln('How old are you?');
read(age);
case age of
0..12:write(name ,' you are a child');
13..19:write(name,' you are a teenager');
20..40:write(name,' you are a youth');
else
write(name,' you are very old');
End;
End.