2.а)10,б)20.
3. var a,b,s:real;
begin
readln(a,b);
s:=(a+b)/2;
writeln(s);
end.
4.var x,y:integer;
begin
readln(x,y);
if x>y then
writeln(x,' больше')
else
writeln(y,' больше');
end.
5. var numb:integer;
begin
for numb:= 1 to 10 do
writeln(numb);
end.