Ответы и объяснения

2013-03-18T21:08:52+04:00

program cndj;

uses crt;

var x,y:integer;

begin

clrscr;

readln(x.y);

if x>y then begin x:=y; y:=x; end;

writeln(x,y);

readln;

end.