Напишите программу,которая находит среднее арифметическое числа и выясняет чётное ли оно

program arith_mean_numb;

var k:integer;

x,y,z:real;

armenum:real;

x1:string;

label 10,20,30;

begin

30: Writeln ('введите первое положительное целое число');

10: Read(x);

if frac(x)<>0 then

begin

Writeln ('Вы ввели дробное число, введите целое число еще раз');

goto 10;

end;

Writeln ('введите второе положительное целое число');

20:Read(y);

if frac(y)<>0 then

begin

Writeln ('Вы ввели дробное число, введите целое число еще раз');

goto 20;

end;

armenum:=(x+y)/2;

Write('Среднее арифметическое: ',armenum);

z:=armenum/2;

if frac (z) <>0 then Writeln (' дробное нечетное число')

else Writeln (' четно число');

Writeln ('Будете еще находить среднее арифметическое число и проверят его на четность, нечетность 1 - да, любое число - нет');

Read (k);

if k=1 then goto 30;

end.