Задача по Паскалю 10 класс

[павел евгеньевик]

Даны 3 числа:A,B и C.если числа четные,то вывести их сумму.если числа нечетные,то вывести наибольшее и наименьшее из чисел,иначе вывести числа без изменения. Ребята,выручайте)

[Aranea tela telam]

Забирай

Program pr1;
var a,b,c,max,min:integer;
begin
max:=0;
min:=0;
Readln(a,b,c);
if (a mod 2=0) and (b mod 2=0) and (c mod 2=0)
then Writeln (a+b+c)
else
if (a mod 2<>0) and (b mod 2<>0) and (c mod 2<>0)
then 
begin
max:=a;
min:=a;

if (a>b) and (a>c) then max:=a;
if (b>a) and (b>c) then max:=b; 
if (c>b) and (c>a) then max:=c;

if (a<b) and (a<c) then min:=a; 
if (b<a) and (b<c) then min:=b; 
if (c<b) and (c<a) then min:=c;
 
Writeln ('Максимальное число ',max);
Writeln ('Минимальное числом ',min);
end
else
Writeln (a,' ',b,' ',c);
end.