1 lygis | 2 pamokėlė | 6. Žiemojantys paukščiai

var
    a, b, c, max, min, vidurinis : integer;
begin
    WriteLn('Įveskite kiek kiekvienos rūšies paukščių liko žiemoti:');
    Readln(a, b, c);

    max := a;
    if b > max then
        max := b;
    if c > max then
        max := c;

    min := a;
    if b < min then
        min := b;
    if c < min then
        min := c;

    if (a <= b) and (b <= c) then
        vidurinis := b;
    if (a <= c) and (c <= b) then
        vidurinis := c;
    if (b <= a) and (a <= c) then
        vidurinis := a;
    if (b <= c) and (c <= a) then
        vidurinis := c;
    if (c <= a) and (a <= b) then
        vidurinis := a;
    if (c <= b) and (b <= a) then
        vidurinis := b;

    writeln(max, ', ', vidurinis, ', ', min);
    writeln('Skirtumas tarp didžiausio ir mažiausio kiekio: ', max-min);
end.
{
var
    a, b, c, max, min, vidurinis : integer;
begin
    WriteLn('Įveskite kiek kiekvienos rūšies paukščių liko žiemoti:');
    Readln(a, b, c);

    if (a <= b) and (b <= c) then
    begin
        min := a;
        vidurinis := b;
        max := c;
    end;
    if (a <= c) and (c <= b) then
    begin
        min := a;
        vidurinis := c;
        max := b;
    end;
    if (b <= a) and (a <= c) then
    begin
        min := b;
        vidurinis := a;
        max := c;
    end;
    if (b <= c) and (c <= a) then
    begin
        min := b;
        vidurinis := c;
        max := a;
    end;
    if (c <= a) and (a <= b) then
    begin
        min := c;
        vidurinis := a;
        max := b;
    end;
    if (c <= b) and (b <= a) then
    begin
        min := c;
        vidurinis := b;
        max := a;
    end;

    writeln(max, ', ', vidurinis, ', ', min);
    writeln('Skirtumas tarp didžiausio ir mažiausio kiekio: ', max-min);
end.
}