Помогите решить задачу на pascal

[Ilya M.]

Распечатать список студентов, упорядоченный
а) по алфавиту;
б) по месяцу рождения;
в) по году рождения;
г) по дате рождения.

[kommunist]

обьясни поподробнее что должно вводится и как выводится

[KORT]

делай процедуру sort и вызывай её для каждого случая. только переменные в процедуре делай типа string.вот пример:

uses crt;
type
    tabel=record
    fam:string[30];
    tabnom:longint;
end;
var
   a: array [1..100] of tabel;
   i,isk: integer;
   m1,m2:tabel;                    {для сортировки записей}
   m,n:string;                    {строки для сортировки}
   s:boolean;

procedure vvod;
BEGIN
clrscr;
Write('Введите количество записей в массиве: ');
readln(isk);
for i:=1 to isk do
  With a[i] do
    begin
    Write('Введите табельный номер: ');
    readln(tabnom);
    Write('Введите фамилию: ');
    READLN(fam);
    end;
    writeln;
end;

procedure vyvod;
begin
writeln ('╔═════════════════╦════════════════╗');
writeln ('║ ТАБЕЛЬНЫЙ НОМЕР ║     ФАМИЛИЯ    ║');
writeln ('╠═════════════════╬════════════════╣');
for i:=1 to isk do
    begin
    writeln('║ ',a[i].tabnom:15,' ║ ',a[i].fam:14,' ║');
    end;
writeln ('╚═════════════════╩════════════════╝ ');
Writeln (' ');
readkey;
END;

procedure sort;                             {процедура сортировки по имени}
begin
repeat
s:=true;
for i:=1 to isk-1 do
begin
with a[i] do
begin
m1:=a[i];                      {сравнение рядом стоящих записей}
m:=fam;
with a[i+1] do begin m2:=a[i+1]; n:=fam; end;
if m<n then begin a[i]:=m2; a[i+1]:=m1; s:=false; end;
end;
end;
until s;    {s устанавливается в истину, когда сортировать больше нечего}
end;

Begin
clrscr;
vvod;
clrscr;
Writeln('Вывод введенных данных на экран:');
vyvod;
sort;
Writeln('Вывод отсортированных фамилий (в порядке обратном алфавиту) на экран:');
vyvod;
readkey;
end.

[Ilya M.]

В интервале от 1 до N найти все числа М такие, что М нацело делится на М1, где М1 – число М, записанное в обратном порядке.

[puporev]

Если это тоже на Паскале то посмотри вложение.