5". Відкрийте вказаний учителем файл (наприклад, Розділ 7 Пункт 7.2\зразок 7.2.5.xlsx). На аркуші Аркуші подано результати висту-
пів учасників олімпіади у кожному з двох турів. За умовами про-
ведення олімпіади Дипломом І ступеня нагороджуються учасники,
що набрали не менше ніж 85 %, очок, Дипломом І ступеня - учас-
ники, що набрали не менше ніж 75 %, але менше ніж 85 % очок,
Дипломом ІІІ ступеня — учасники, що набрали не менше ніж 50 %,
але менше ніж 75 % очок, усі інші одержують Диплом учасника.
Додайте до таблиці формули для визначення, який Диплом буде
вручено кожному з учасників. Збережіть книгу у вашій папці
у файлі з іменем завдання 7.2.5.xlsx.
program p;
var
a,b,c:integer;
begin
writeln('первое число:');
readln(a);
writeln('второе число:');
readln(b);
writeln('третие число:');
readln(c);
if (a>b) and (a>c) then
writeln('Первое число является наибольшим');
if (a>b) and (a<c) or (a<b) and (a>c) then
writeln('Первое число является средним');
if (a<b) and (a<c) then
writeln('Первое число является наимешим');
if (b>a) and (b>c) then
writeln('Второе число является наибольшим');
if (b>a) and (b<c) or (b<a) and (b>c) then
writeln('Второе число является средним');
if (b<a) and (b<c) then
writeln('Второе число является наимешим');
if (c>b) and (c>a) then
writeln('Третие число является наибольшим');
if (c>b) and (c<a) or (c<b) and (c>a) then
writeln('Третие число является средним');
if (c<b) and (c<a) then
writeln('Третие число является наимешим');
end.