Написать программу в PascalABC.NET

задание:с клавиатуры вводятся 3 числа.найти среднее арифметическое двух больших и двух меньших.

по нубски правдо очень проверить не забудь)

vara,n,c:integer;x,y:real;beginreadln(a);readln(n);readln(c);if ((a > n) and (n > c)) then beginx:=(a+n)/2;y:=(n+c)/2;end else if((n > a) and (a > c)) then beginx:=(a+n)/2;y:=(a+c)/2;end else if((c > a) and (a > n)) then beginx:=(a+c)/2;y:=(a+n)/2;end else if((c > n) and (n > c)) then beginx:=(c+n)/2;y:=(n+c)/2;end else if((n > c) and (c > a)) then beginx:=(c+n)/2;y:=(a+c)/2;end else if((a > c) and (c > n)) then beginx:=(c+a)/2;y:=(n+c)/2;end else if((c > n) and (n > a)) then beginx:=(c+n)/2;y:=(n+a)/2;end;write('наибольшее: ',x,' наименьшее: ',y);end.