Как решить задачу в Паскале??????

Делается с помощью пузырьковой сортировки.
Program Sort;
Const
Nmax = 100;
Var
  X : Array [1..Nmax] Of Real;
  A : Real;
  n, k, i : Integer;

Begin
Writeln('Введите количество чисел');
Readln(n);
Writeln('Введите массив чисел');
For i := 1 To n Do Read (X);
{ Сортировка }
For k := 1 To n-1 Do
   For i := 1 To n-1 Do
     If X > X[i+1] Then
       Begin
         A:=X;
         X:=X[i+1];
         X[i+1]:=A
       End;
Writeln('Отсортированный массив чисел:');
For i:=1 To n Do
Write (X);
End.

Надо тетрадку свою посмотреть))) уже ничего не помню (

Я фигею с народа... учитесь программировать!
var tmp,max:integer;
begin
   writeln('vvedite 4isla, 0 - konec vvoda');
   max:=0;
   repeat
     readln(tmp);
     if (tmp>max) then max:=tmp;
   until (tmp<=0); {по условию - числа положительные}
   writeln(max);
end.

nuzno znatj Paskale :D google.com help you blondy