В кодировке <span> ASCII один символ занимает 1 байт.
</span><span>Текст занимает 24 576 бит памяти
24576 бит /8 =3072 байта.
Значит текст содержит 3072 символа, включая пробелы</span>
Uses crt;
var
i: integer;
k: array [1..5] of real;
begin
clrscr;
writeln ('Input array:');
for i:=1 to 5 do
begin
write (i,') ');
readln (k[i]);
end;
writeln ('Your array:');
for i:=1 to 5 do
write (k[i],' ');
readln ();
<span>end.</span>
Var
i: integer;
begin
readln(i);
if i mod 2 = 0 then
writeln(i);
else
writeln(i-1);
end