Сколько символов текста можно передать за 4 секунды используя модем работавший со скоростью 2400 бод 1 символ кодируется 8 битами

var  n : integer; beginreadln (n); case n of1, 2, 12 : writeln ('зима'); 3, 4, 5 : writeln ('весна'); 6, 7, 8 : writeln ('лето'); 9, 10, 11 : writeln ('осень'); end; end.

3+3-3: 3=5

3-3+3+3=6

3: 3+3+3=7

3*3-3: 3=8

3*3*3: 3=9

3* 3+3: 3 = 10

например такие числа

954-459=495

если паскаль, то вот :

program altzie;

var h: real;

begin

repeat write('введите h ');

readln(a); if a< =0then writeln('ошибка! значение h не может быть нулевым или отрицательным. повторите ввод.');

until h> 0;

writeln('площадь боковой поверхности куба = ', (6*h*h));

readln; end.