読み込んだ２つの整数値の大きい方の値・小さい方の値を表示 (複合文)

明解Ｃ言語 入門編 > 3. プログラムの流れと分岐 >

読み込んだ２つの整数値の大きい方の値・小さい方の値を表示 (複合文)

Delphi

program Project1;
{$APPTYPE CONSOLE}
uses

    SysUtils;

var

    n1, n2, max, min: Integer;

begin

    writeln('２つの整数を入力してください。');
    write('整数１：');

    read(n1);
    write('整数２：');

    read(n2);
    if (n1 > n2) then

    begin

        max := n1;

        min := n2;

    end

    else

    begin

        min := n1;

        max := n2;

    end;
    writeln(format('大きいほうの値は%dです。', [max]));

    writeln(format('小さいほうの値は%dです。', [min]));

end.

実行結果

S:\>lesson021\project1.exe

２つの整数を入力してください。

整数１：83

整数２：45

大きいほうの値は83です。

小さいほうの値は45です。