- 283 名前：デフォルトの名無しさん mailto:sage [2006/05/26(金) 02:25:45 ]
- >>278
ヒント
program database( input , output );
type a = ^b ; b = record c : packed array [1..20] of char ; d : a ;
var e, f : packed array [1..20] of char ;
bagin
readln(e);
readln(f);
if e < f then
begin writeln( e , f ); end else begin writeln( f , e ); end;
end.
２単語入力のみ対応
