Решите задание по информатике надо написать. Программу на паскале

1)
Program graph1;
uses graph;
var  gd,gm,error,a,b: integer;   x,y:real;
begin
gd:=detect;
initgraph(gd,gm,'');
error:=graphresult;
if error <> grOk then begin
write ('Ошибка: ', grapherrormsg(error));
readln; halt;
end;
while(x<=100) do begin
y:=cos(x*x);
a:=round(x*100);
b:=round(y*100);
PutPixel(a,b+300,15);
x:=x+0.001;
end;

readln;
closegraph;
end.

closegraph;
end.
2)
Program graph1;
uses graph;
var  gd,gm,error,a,b: integer;   x,y:real;
begin
gd:=detect;
initgraph(gd,gm,'');
error:=graphresult;
if error <> grOk then begin
write ('Ошибка: ', grapherrormsg(error));
readln; halt;
end;
while(x<=100) do begin
y:=1/(x*x+1);
a:=round(x*100);
b:=round(y*100);
PutPixel(a,b+300,15);
x:=x+0.001;
end;

readln;
closegraph;
end.

Высчитаем необходимый размер памяти для хранения 1 символа. 
В используемом алфавите имеется 256 символов. 256 символов (состояний) можно закодировать таким числом бит, которых достаточно для отображения этого числа состояний. В данном случае это 8 бит (т.к. 1111 1111 = 255, да плюс нулевое состояние, итого 256 возможных состояний). 
Т.е. для хранения 1 символа требуется 8 бит = 1 байт.
Посчитаем количество символов в документе. 
30*70*5 = 2100 * 5 = 10500 символов. 
Для хранения которых потребуется
10500 * 1 = 10500 байт. 
(Он же, если нужно, 10500/1024 = 10,25390625 Кбайт. )