Написать программу в 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.