Program n_1;
var r, d:integer;
begin
r:=2; d:=r*2;
writeln('Диаметр круга равен ',d);
end.
Скорее всего так
1а
2д
3в
4б
5б
6б
7-
8а
9 наверное 2. не точные варианты ответов
10б
11 3
12 4
13 2
14 1
15 1
16 4
4 Кб = 1024 * 4 байт = 1024 * 4 * 8 бит = 32768 бит
Ответ: 32768
Во вложениях.............
я поставил два readln, чтобы программа не заедала, а то бывает не идет команда