Помогите пожалуйста составить три программы в паскаль.

1)var  x,y:integer; begin if x>y then begin  y:=(x+y)/2;  x:=y*x; end else  begin y:=y*x; x:=(x+y)/2; end; writeln(x,y); readln; end. 2)var  n,m,k,i,l:longint; begin  readln('Стаж работы: ', n);  if n<=5 then writeln('Будет получать 130'); if (n>5) and (n<15) then writeln('Будет получать 180'); if n>15 then writeln('Будет получать k:=k+(k+10');  end. 3)var  n,m,k,i,l:longint; begin  readln(n); for i:=1 to n do if i mod 2<>0 then writeln(i*i); end.

У предыдущего отвечающего не совсем корректна 1 программа. Дело в том, что при просчете 'y' значение 'x' уже изменено и результат получится другой. Во второй задаче также не учтены слова ОТ и ДО. Предлагаю более корректные варианты.