[email protected] , ответ добавлен 09.03.2018 в 11:02

Program trichisla;
var a,b,c,g:integer;

begin
Writeln('Введите 3 числа через пробел');
Readln(a,b,c);
if (a mod 2 =0) or (b mod 2= 0) or (c mod 2=0) then
begin
if a>b then g:=a else g:=b;
if g>c then g:=g else g:=c;
end
else
if a<b then g:=a else g:=b;
if g<c then g:=g else g:=c;
Writeln('Максимальное или минимальное: ',g);
end.

 0