нужна программа на Pascal С клавиатуры вводятся натуральные числа, ввод заканчивается числом 0. Нужно вывести на экран эти числа в порядке возрастания.

Program pro;
 uses crt;
 type anketa=record fam:string[20];
 im:string[12];
 voz: 1..18;
 at: real;
 tel: integer;
 end;
 var i,n:integer; student: anketa; f:file of anketa;
begin
clrscr;
assign(f,'C:\PABCWork.NET\St.dat');
reset(f);
Write('Введите количество новых учащихся');
 Readln(n);
For i:=1 to n do Write('Введите Фамилию учащегося:');
 Readln(student.fam);
Write(f,student.fam,' ');
Write('Введите Имя учащегося:');
Readln(student.im);
Write(f,student.im,' ');
Write('Введите Возраст учащегося:');
 Readln(student.voz);
Write(f,student.voz,' ');
Write('Введите Средний бал аттестата учащегося:');
 Readln(student.at);
Write(f,student.at,' ');
Write('Введите Телефон учащегося:');
Readln(student.tel);
Writeln(f,student.tel);
end;
close(f);
readkey;
end.

Код с комментариями:

data = [] # создать строку

print("Введите температуру:")

data.append(int(input("Понедельник>> "))) # дополнить строку

data.append(int(input("Вторник>> "))) # то же самое

data.append(int(input("Среда>> "))) # то же самое

data.append(int(input("Четверг>> "))) # то же самое

data.append(int(input("Пятница>> "))) # то же самое

data.append(int(input("Суббота>> "))) # то же самое

data.append(int(input("Воскресенье>> "))) # то же самое

print("\n\nСредняя температура за неделю:" + str(round(sum(data) / 7, 2))) # напечатать среднее строки