Блок схему program pr1; var a,b,c: byte; begin writeln('введите a,b,c'); readln(a,b,c); if a> b then begin a: =a+b; b: =a-b; a: =a-b; end; if b> c then begin b: =b+c; c: =b-c; b: =b-c; end; if a> b then begin a: =a+b; b: =a-b; a: =a-b; end; writeln('a=',a,' b=',b,' c=',c); end.