В финальных соревнованиях по метанию диска принимали участие три спортсмена. Первым закончил выступать Василий,
вторым – Петр и третьим – Николай. Все три спортсмена показали
разные результаты. Разработать алгоритм и программу определения
победителя соревнований.
Результат метания диска Василием обозначим переменной a, результат Петра – переменной b и Николая – переменной c. Будем считать, что
значения этих переменных вводятся с клавиатуры. Условие,
согласно которому победителем становится Василий, можно записать
таким образом: если выражение (a > b) and (a > c) имеет значение
«истинно»; Петр становится победителем, если выражение (b > a) and
(b > c) имеет значение «истинно», а Николай – если выражение (c > a)
and (c > b) имеет значение «истинно».
Разработайте алгоритм и программу определения победителя. Проверьте программу для различных значений переменных. Докажите, что
программа работает правильно.

Предполагается, что вводимые числа - целые.

1) С цикла Repeat Until

Program n1;
Uses CRT;
Var s,k,i: integer;
sr: real;
begin
Writeln('Vvodite chisla. Vvedite 0 dlya okoncania vvoda');
Repeat
Readln(i);
s:=s+i;
inc(k);
Until i=0;
sr:=s/(k-1);
Writeln('Srednee arifmeticheskoe = ',sr:4:4);
readln
end.

2) С цикла While

Program n1;
Uses CRT;
Var s,k,i: integer;
sr: real;
begin
Writeln('Vvodite chisla. Vvedite 0 dlya okoncania vvoda');
i:=1;
While i<>0 do
begin
Readln(i);
s:=s+i;
inc(k);
end;
sr:=s/(k-1);
Writeln('Srednee arifmeticheskoe = ',sr:4:4);
readln
end.

3) С цикла For

Program n1;
Uses CRT;
Var s,j,k,i: integer;
sr: real;
begin
Writeln('Vvedite kolichestvo chisel');
Readln(k);
Writeln('Vvodite chisla');
For j:=1 to k do
begin
readln(i);
s:=s+i;
end;
sr:=s/k;
writeln('Srednee arifmeticheskoe = ',sr:4:4);
readln
end.

Клавиша Esc  находится выше клавиши Tab и применяется, в основном, для отмены какого-либо действия.

Клавиша Delete  или Del обычно используется для удаления символов, находящихся справа от курсора.

home-обычно перемещает курсор соответственно в начало и в конец строки.

Левая и правая клавиши <Ctrl>  обеспечивают выполнение одних и тех же функций и используются в сочетании с другими клавишами. В приложениях Windows очень часто применяют комбинации клавиш алфавитно-цифровой области с клавишей <Ctrl> для определения так называемых "горячих клавиш" . Так комбинация клавиш <Ctrl> + <S> обеспечивает сохранение документа (соответствует выбору пункта меню File/Save, <Ctrl> + <C> соответствует Edit/Copy, а <Ctrl> + <V> - Edit/Paste.