1)сообщение о том, что друг едет в 16 вагоне несет 8 бита информации. сколько ванонов у поезда? 2)переведите 2.5 кбайт в байты и биты

2,5 кбайт=2560,20480 бит

program pr;

var i: integer;

      mas: array[1..7]of integer;

begin

for i: =1 to 7 do 

begin

writeln ('введите температуру ', i ,' сентября');

readln (mas[i]);

end;

for i: =1 to 7 do writeln (i, '  сентября температура была  ' mas[i]);

readln;

end.

var

a,b: real;

begin

readln(a,b);

if (a> 0) or (b< -2) then

writeln('истинно')

else

writeln('ложно');

end.