Ответ уже дан. Удаляйте вопрос, он повторяется.
Var a,b,i:integer;
begin
readln(a,b);
for i:=a to b do writeln(i,' ',chr(i));
end.
Пример:
35 40
<span>35 #
36 $
37 %
38 &
39 '
40 (</span>
Var i,q,a:integer;
begin
for i:=1 to 20 do begin
read(a);
q:=q+a;
end;
writeln(q);
end.
Первым действием узнаем во сколько раз изменилась скорость. Дальше смотрим на размер файла