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

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.