Знайдть помилку дуже прошу, програма для знаходження не найменшого не

Знайдть помилку дуже прошу, програма для знаходження не найменшого не найбльшого числа з трьох чисел
program Project1;
var a,b,c:longint;
begin
readln(a,b,c);
if (agt;b) and (alt;c) or (agt;c) and (alt;b) then writeln(a);
if (bgt;a) and (blt;c) or (bgt;c) and (blt;a) then writeln(b);
if (cgt;b) and (alt;b) or (cgt;a) and (bgt;c) then writeln(c);
writeln(maxlongint);
readln;
end.

Ярослава Свирчевская 2019-08-17 20:23:19

так

Ярослава 2019-08-17 20:32:34

от тльки воно не найбльше не найменше

Андрей Белопеевский 2019-08-17 20:38:10

Зараз напишу.

Валерий Бучельников 2019-08-17 20:40:37

можу дати повну задачку

Васек Клапишевский 2019-08-17 20:50:11

Н, я зрозумв.

Ispolnov Kirill 2019-08-17 20:58:13

Задано три рзних числа, модуль кожного з яких не перевищу 109. Визначте число, яке рвне одному з заданих чисел, але не н мнмальним, н максимальним з их.Вхдн дан: диний рядок вхдного файлу мстить три заданих числа, записаних через один або клька проблв.Вихдн дан:диний рядок ма мстити шукане число

Апинова Стефания 2019-08-17 21:04:00

Вхдн дан Итог роботи5 16 1010

Валерия Слухина 2019-08-17 21:12:35

Зараз, зажди небагато...

Vladislav 2019-08-17 21:18:21

будьласка можете тршки бистрше ато мен вже йти треба

Евгений Чваров 2019-08-17 21:23:45

пишу