Помогите пожалуйста я вас о4ень прошу !нужно составить программу в паскале....

Доброго времени суток.

Если заранее известно число повторений, то лучше использовать цикл for to, по-крайней мере не надо будет заботиться об инкременте управляющей переменной. Если все-таки надо репит, то.. .

MaxN := -MaxInt;
i := 0;
repeat
i := i + 1;
ReadLn(N);
if N > MaxN then MaxN := N;
until i >= 10;
WriteLn('Максимальное из введенных чисел - ', MaxN);

Остальное сами.

Удачи!

Var
a,i,max:Integer;
Begin
Readln(max);
i:=1;
Repeat
Readln(a);
If a>max Then max:=a;
i:=i+1
Until i=10;
Writeln(max)
End.

ну там не только репитом придется обойтись, такая легкотня, и ты не можешь решить ай яй яй..

Мой вариант таков:

Program Maximum;

Uses
Crt;

Const
N = 10;

Var
Max: Integer;

i: Integer;

x: Integer;

Begin
ClrScr;

i := 1;

Repeat
Write('Введите число: ');

ReadLn(x);

If i = 1 Then
Begin
Max := x;
End
Else
Begin
If x > Max Then
Begin
Max := x;
End;
End;

Inc(i); { i := i + 1 }
Until i > 10;

WriteLn;

Write('Максимальное число: ');

WriteLn(Max);

WriteLn;

Write('Нажмите любую клавишу для продолжения... ');

Repeat
Until KeyPressed;
End.

Внесу коррективы в предложенные программы.
Первое. В условии не фигурирует, что числа именно целые. Поэтому в общем случае надо использовать как минимум тип Real.
Второе. Если объявляем константу, то ее надо использовать )) Или уж не объявлять.
Третье. Если на плече условного оператора всего один оператор, то нет необходимости использовать операторные скобки begin-end.
Четвертое. Этот вариант тоже не идеален) )

Program Maximum;
Uses Crt;

Const N = 10;

Var Max: Real;
i: Integer;
x: Real;

Begin
ClrScr;
i := 1;

Repeat
Writeln ('Введите число №: ', i);
ReadLn(x);

If i = 1 Then Max := x
Else If x > Max Then Max := x;

Inc(i)

Until i > N;

WriteLn;
Write ('Максимальное число: ');
WriteLn(Max);
WriteLn;

Write('Нажмите любую клавишу для продолжения... ');
Repeat Until KeyPressed;

End.

А может без repeat и until-а ?