===== PascalABC.NET =====
begin
var (a, b, x) := ReadInteger3;
if x = 1 then
Print('Сумма', a + b)
else if x = 2 then
Print('Разность', a - b)
end.
<span>var
a, b, S, : real;
begin
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
s := a * b;
write('Площадь прямоугольника -- ', s, ';
end<span>.</span></span>
Переводим 3,5 КБ в биты,учитывая,что один знак=8битам
3,5 КБ=286720бит
Теперь делим данное число на кол-во знаков по битам
Получаем 286720/8=35 840 Байт(знаков)
Следует учитывать,что это решение верно,для кодировки КОИ-8
ОТВЕТ:35 840 знаков