Сколько Кбайт информации содержит сообщение объёмом 3072 байт? В ответе укажите одно число.

3072байт=3072/1024=3Кбайт

Var      a, b: string;           c: integer; begin        writeln('введите первое слово: ');         readln(a);         writeln('введите второе слово: ');         readln(b);         c : = length(a) - length(b);         if c = 0 then writeln('длины слов равны')        else if c > 0 then writeln('первое слово длиннее второго на ', c)        else writeln('второе слово длиннее первого на ', -c) end.2)var a: string; begin        writeln('введите предложение: ');         readln(a);         case a[length(a)] of              '.': writeln('предложение повествовательное');         '! ': writeln('предложение восклицательное');         '? ': writeln('предложение вопросительное');         end; end.3)var      a: string;           t: char; begin        writeln('введите слово: ');         readln(a);         t : = a[1];         a[1] : = a[length(a)];         a[length(a)] : = t;         writeln('полученное слово: ', a)end.