Question

În pascal
Mă poate ajuta cineva vă rog?​

Answer 1

program p1;

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

begin

write('a = '); readln(a);

write('b = '); readln(b);

write('c = '); readln(c);

max := 0; min := 0;

if max < a then max := a;

if max < b then max := b;

if max < c then max := c;

if min > a then min := a;

if min > b then min := b;

if min > c then min := c;

writeln('Max = ', max);

writeln('Min = ', min);

end.