Var n,i: integer;
begin
write('Введите целое число = ');
readln(n);
i:=2;
while (n mod i <> 0) do i:=i+1;
if i=n then writeln('Число ',n,' простое')
else writeln('Число ',n,' не простое');
<span>end.</span>
1 килобайт = 1024 байт
3*1024= 3072
3072+720=3792
Ответ: 3792 байт
Длинна символа в кодировке <span>Windows-1251 составляет 1 байт.
В 1kB - 1024B.
Таким образом будет 1536/1024 = 1,5kB </span>
Передача перо* дача
можешь нарисовать лучше ;)