Напишите программу вычисления значения функции y=6x+3 для любого значения х

№1 
Найдем объем всего сообщения в битах: 
1/512 Мб=1024/512 Кб=2 Кб=2*1024 байт=2048 байт=2048*8 бит 
Найдем сколько занимает один символ для этого поделим кол-во битов в сообщении на кол-во символов: 
(2048*8)/2048=8 бит i=8 
найдем мощность алфавита N 
N=2 в стапени i 
N=256 
ответ:N=256 
№2 
Найдем сколько занимает один знак: 
N=2 в степени i 
256=2 в степени i 
i=8 бит 
Найдем сколько займут введенные символы: 
8*100=800 бит=800/8 байт=100 байт 
ответ:100 байт 
№3 
Найдем сколько занимает один символ: 
N=2 в степени i 
65536=2 в степени i 
i=16 бит=2 байта 
Найдем кол-во символов: 
4стр*5мин=20стр 
20стр*40строк=800строк 
800строк*50 симв=40000симв 
Все символы занимают: 
40000*2 байта=80000байт 
ответ:80000байт

Если ты в 10-11, то необходимо с массивом:
const n=10;
var a:array[1..n] of integer;   
     i,min,max:integer;   
     sum:real;
begin
for i:=1 to n do readln(a[i]);
min:=a[1]; 
max:=a[1];
for i:=1 to n do begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
sum:=(min+max)/2;
writeln(sum);
end.


Без массива:
uses crt;
const n=10;
var  x,i,min,max:integer;
     sum:real;
begin
min:=10000;
max:=-10000;
for i:=1 to n do begin
readln(x);
if x>max then max:=x;
if x<min then min:=x;
end;
sum:=(min+max)/2;
writeln(sum);
end.