---

Cia kam reikejo kelimas laipsniu.
Tai vat paprasciausia programa kelimas laipsniu

ir sorry iskarto uz flooda, bet gal galim man biski rimciau padeti, reikia surasti amziaus vidurki n mokyniu, kai as turiu gymimo metus, menesi ir diena, (tarkim kad mokyniu yra 3, ir jie gime skirtingomis dienomis menesiais ir dienom), sita reikia parasyta arba funkcija arba procedura. + jeigu pades susygaudyti tai visa programa: program mokyniai;
uses Crt;
type pavarde = array [1..30] of string;
metai = array [1..30] of integer;
menuo = array [1..30] of integer;
diena = array [1..30] of integer;
{-----------------------------------------------------------}
procedure Duomenys (var a: pavarde; var b: metai;
var c: menuo; var d: diena;
var n: integer);
var i : integer;
begin
Write ('Kiek studentu yra?'); Readln (n);
writeln ('iveskite studento pavarde,gimimo metus, menesi ir diena:');
for i:= 1 to n do
begin
write (i,'pavarde:'); readln (a[i]);
write ('gimimo metai:'); readln (b[i]);
write ('menuo:'); readln (c[i]);
write ('diena:'); readln (d[i]);
end;
writeln;
end;
{-----------------------------------------------------------}
function jaun ( b: metai;
c: menuo; d: diena;
n: integer):integer;
var max,i:integer;
begin
max:=1;
for i:= 2 to n do
if (b[max] < b[i])
then max:= i
else if (b[max] = b[i]) and (c[max]< c[i])
then max:=i
else if (c[max]= c[i]) and (b[max] = b[i]) and (d[max]<d[i])
then max:=i;
jaun:=max;
end;
{-----------------------------------------------------------}
function vyr ( b: metai;
c: menuo; d: diena;
n: integer):integer;
var min,i:integer;
begin
min:=1;
for i:= 2 to n do
if (b[min] > b[i])
then min:= i
else if (b[min] = b[i]) and (c[min]> c[i])
then min:=i
else if (c[min]= c[i]) and (b[min] = b[i]) and (d[min]>d[i])
then min:=i;
vyr:=min;
end;
{-----------------------------------------------------------}
procedure senejimas (var a: pavarde; var b: metai;
var c: menuo; var d: diena;
var n: integer);
var temp1,temp2,temp3,i,j:integer; temp4: string;
begin
for i:= 1 to n-1 do
for j:= i+1 to n do
if (b[i]<b[j])
then begin
temp1:=b[i];
temp2:=c[i];
temp3:=d[i];
temp4:=a[i];
b[i]:=b[j];
c[i]:=c[j];
d[i]:=d[j];
a[i]:=a[j];
b[j]:= temp1;
c[j]:= temp2;
d[j]:= temp3;
a[j]:= temp4;
end
else if (b[i]=b[j]) and (c[i]<c[j])
then begin
temp1:=b[i];
temp2:=c[i];
temp3:=d[i];
temp4:=a[i];
b[i]:=b[j];
c[i]:=c[j];
d[i]:=d[j];
a[i]:=a[j];
b[j]:= temp1;
c[j]:= temp2;
d[j]:= temp3;
a[j]:= temp4;
end
else if (b[i]=b[j]) and (c[i]=c[j]) and (d[i]<d[j])
then begin
temp1:=b[i];
temp2:=c[i];
temp3:=d[i];
temp4:=a[i];
b[i]:=b[j];
c[i]:=c[j];
d[i]:=d[j];
a[i]:=a[j];
b[j]:= temp1;
c[j]:= temp2;
d[j]:= temp3;
a[j]:= temp4;
end;
end;

{-------------------------}
procedure rykiavimas ( pav: pavarde;
n: integer);
var i : integer;
begin
for i:= 1 to n do
writeln (pav[i]) ;
end;
{-------------------------}
procedure zodis;
begin
writeln ('Jauniausias:');
end;
{-------------------------}
procedure zodis2;
begin
writeln ('Vyriausias:');
end;
{-------------------------}
procedure zodis3;
begin
writeln ('Nuo jauniausio iki seniausio:');
end;
{------Padariau biski kitaip :)----}
procedure vidurkis (var b: metai;
n: integer; vid:real; q:real);
var i,sum:integer;
begin
sum:=0;
for i:= 1 to n do
sum:=sum+b[i];
vid:=sum/ n;
q:=2010-vid;

writeln ('vidurkis gimimo metais: ', Round(vid));
writeln ('vidurkis metais: ',Round(q));

end;
{-------------------------}
var pav: pavarde;
met: metai;
men: menuo;
die: diena;
n : integer;
v: real;
begin
ClrScr;
Duomenys (pav,met,men,die,n);
zodis;
writeln (jaun (met,men,die,n));
zodis2;
writeln (vyr (met,men,die,n));
zodis3;
senejimas (pav,met,men,die,n);
rykiavimas (pav,n);
readln;

end.