Найдите из 5 чисел program qq var a,b,c,d,e max: integer;
Что найти сумму ?
или максимальное
из 5 чисел
Ответ прилагаю в файле с кодом. Самый короткий способ найти макс из пяти чисел, иначе просто можно запутаться в условиях.