2) 2 Мбайт, 200 Кбайт, 1 Мбайт, 1000 Кбайт.
2 Мбайта ▬ 2048 Кбайт., 1 Мбайт ▬ 1024 Кбайт.
var
n, n1, n2, n3: Integer;
begin
Write ('Введите трехзначное число: ');
ReadLn (n);
if not ((n >= 100) and (n <= 999)) then begin
Writeln ('Число не является трехзначным!');
Exit;
end;
n1 := n div 100;
n2 := (n div 10) mod 10;
n3 := n mod 10;
Writeln ('Среднее арифметическое цифр = ' + FloatToStr ((n1 + n2 + n3) / 3));
end;