Программа:
var b: integer;
begin
write('Байты: ');
readln(b);
writeln(b,' байт(а/ов) = ',b/1024:5:2,' Кбайт');
end.
Пример:
Байты: 2048
2048 байт(а/ов) = 2.00 Кбайт
