Синформатикой (написать короткую програмку в freepascal) ввести 2 числа, если сумма четная делить на 2, если нет оставить без изменений. заранее )

Var   x,y: integer; begin   writeln('введите 1-ое число');   readln(x);   writeln('введите 2-ое число');   readln(y);   if ((x+y)mod 2)=0 then writeln('ответ: ',(x+y)/2)   else writeln('ответ: ',x+y)  end.

program for_znanijacom;

const м = 100;

var mas : array[1..m] of integer;

i, max, k, n : integer;

begin

write('bbeдиte размер массива n = ');

readln(n);

write('bbeдиte элемент массива ');

readln(mas[1]);

max : = mas[1];

k: =1;

for i : = 2 to n do

begin

write('bbeдиte элемент массива ');

readln(mas[i]);

if max< mas[i] then

begin

max : = mas[i];

k: = 1

end

else

if max = mas[i] then к : = k+1;

end;

writeln('max =', max, 'этих элементов', к)

end.

1. x=float(    #ввод числа if x> =0:                 #если число неотрицательное     x-=10              #вычесть 10 else:                   #иначе     x+=10            #прибавить 10 print(x)              #вывод числа 2.x=float(    #ввод первого числа y=float(    #ввод второго числа max=x                #примем первое число за максимальное if y> max:             #если второе число больше     max=y            #то считать второе число максимумом print(max**2)      #вывод квадрата максимального числа 3. x=int(      #ввод первого числа y=int(      #ввод второго числа if (x+y)%2==0:     #если сумма четная,т.е. остаток от деления на 2 равен 0     print(x*y)        #вывести их произведение else:                     #иначе     print(x/y)          #вывести частное от деления первого числа на второе