Programalama > PASCAL

uses crt;
var
say:array [1..5] of real;
sec, a, b:byte;
c:real;

procedure verioku;
begin
for a:=1 to 5 do
begin

write(a,'. say:'); readln(say[a]);
end;
end;

procedure verileriyaz;
begin
clrscr;

for a:=1 to 5 do
begin
     for b:=a+1 to 5 do
     begin
          if say[a]<say[b] then
             begin
                  c:=say[a]; say[a]:=say[b]; say[b]:=c;
             end;
     end;
end;
writeln;

for a:=1 to 5 do writeln(say[a]:5:3);
readln;
end;

begin
   repeat
   clrscr;
   textcolor(12); gotoxy(21,2); write('ABDUSSAMET PEKTAS----FATIH PEKTAS');
   textcolor(10); gotoxy(23,3); write('NIKSAR ENDUSTRI MESLEK LISESI');
   textcolor(6); gotoxy(29,4); write('TEKNIK LISE 2-B 12');
   gotoxy(23,5); write('NIKSAR ILKOGRETIM OKULU 5-A 248');
   textcolor(5); gotoxy(32,8); write('***MENU***');
   gotoxy(30,10); write('1-Ver grs');
   gotoxy(30,11); write('2-Sralama');
   gotoxy(30,12); write('3-Cks');
   gotoxy(30,14); write('Secmnz:'); readln(sec);
   if sec=1 then verioku;
   if sec=2 then verileriyaz;
until sec=3;
end.