Перепиши программу так:
Program lol;
Var a,b,c,mx,mn:integer;
begin
readln(a,b,c);
mx := max(max(a, b), c);
mn := min(min(a, b), c);
writeln('Максимальное число ',mx);
writeln('Минимальное число ',mn);
end.
Объяснение:
Перепиши программу так:
Program lol;
Var a,b,c,mx,mn:integer;
begin
readln(a,b,c);
mx := max(max(a, b), c);
mn := min(min(a, b), c);
writeln('Максимальное число ',mx);
writeln('Минимальное число ',mn);
end.
Объяснение: