Так :)
program p1;
var a:integer;
begin
writeln('Введите число: ');
read(a);
writeln('число: ',a);
<span>end.</span>
Подгрузите кумиром эту файлу
Человека окружает множество объектов, но самые главные для существования индивидума это воздух, вода, еда и социум без них никакой человек не в состоянии жить
150 байт = 150*8 бит = 1200 бит
Количество информации на один символ = 1200/400 = 3 бита
Количество символов в алфавите = 2^3 = 8