Годятся числа меньше или равные FFh, 477 восьмеричн, 255 десятичн. и 11111111 двоичн
procedure Minmax(var a, b: integer);
var min, max: integer;
begin
if a < b then min := a else min := b;
if a > b then max := a else max := b;
a := min;
b := max;
end;
Сканер, в инет забей 1-ый вопрос, и всё!)
Столбец в таблице под буквой В
диаграмма построена 5 10 15 10<span />