Question

Mă puteți ajuta vă rog? (În pascal)​

Answer 1

program numere;

var a, b, c, max, min: integer;

begin

max: = 0;

readln(a);

readln(b);

readln(c);

min: = a;

if (a > b) then max: = a

else max: = b;

if (max < c) then max: = c

else min: = c;

if (min > a) then min: = a;

if (min > b) then min: = b;

if (min > c) then min: = c;

writeln(max, ' ', min)

end.