Вопрос по информатике 9 класс.

1)var
b,n:integer;
begin
readln(n);
readln(m);
if m<>n then begin
if m>n then n:=m else m:=n
end;
end.
2)var
a,b,c,d:integer;
begin
readln(a);
readln(b);
c:=2*a*b;
d:=(a+b)div 2;
if a<>b then
begin
if a>b then
begin
a:=c;
b:=d;
end
else
begin
a:=d;
b:=c;
end;
end;
end.
3)var
a:integer;
begin
writeln('сколько будет 2+2');
readln(a);
if a=4 then writeln('молодец') else('запомни 2+2=4');
end.
4)var
a:integer;
begin
writeln('сколько вам лет? ');
if a>100 writeln('вы хорошо сохранились') else ('лет до ста расти вам без старости');
end.