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');<br>if (n>5) and (n<15) then writeln('Будет получать 180');<br>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.