1. Program A1;vars,m:integer;beginWriteln('Vvedi vozrast SASHI :');Read(s);Writeln('Vvedi vozrast MASHI :'); Read(m);If s>m then writeln('SASHA starshe MASHI') else writeln('MASHA starshe SASHI');end.2.Program A1;vars,m:integer;beginWriteln('Vvedi vozrast SASHI :');Read(s);Writeln('Vvedi vozrast MASHI :'); Read(m);If s=m then writeln('SASHA i MASHA rovestniki') elseIf s>m then writeln('SASHA starshe MASHI') else writeln('MASHA starshe SASHI');end.3.Program A1;vara,b,c,d:real;beginReadln(a);Readln(b);Readln(c);If ((b<a) and (b<c)) then begin d:=a; a:=b; b:=d; end;If ((c<a) and (c<b)) then begin d:=a; a:=c; c:=d; end;If ((a>b) and (a<c)) then begin d:=b; b:=a; a:=d; end;If ((c<b) and (c>a)) then begin d:=b; b:=c; c:=d; end;If ((a>c) and (a>b)) then begin d:=c; c:=a; a:=d; end;If ((b>c) and (b>a)) then begin d:=c; c:=b; b:=d; end;writeln(a,'<',b,'<',c);end.