Операционная система — комплекс системных программ, расширяющий возможности вычислительной системы, а также обеспечивающий управление её ресурсами, загрузку и выполнение прикладных программ, взаимодействие с пользователями. В большинстве вычислительных систем операционные системы являются основной, наиболее важной (а иногда единственной) частью системного программного обеспечения.
1 символ 1728/864=2 байта
алфавит 32*2=64 байта
то что параметр цикла не в заголовке это не ошибка, но настоятельная рекомендация, а ошибка у вас в том, что вы не выделили память под динамический массив, a:=new integer[n] (или SetLength(a,n)). И, поскольку индексация элементов в динамических массивах начинается с 0, то в цикле For верхняя граница параметра i должна быть на 1 меньше n, то есть For i:=0 to n-1.
Исходная программа была совершенно безумной, пришлось поправить.
program lab3;
label
loop,fin;
var
x,y:real;
begin
writeln('vvedite x'); readln(x);
loop:
if x>1 then goto fin;
if 1.5*x<1 then y:=1.5*x-ln(1.5*x)/ln(10)
else
if 1.5*x>1 then y:=1.5*x+ln(1.5*x)/ln(10)
else y:=1;
writeln('x=',x:0:1,', y=',y:5:3);
x:=x+0.1;
goto loop;
fin:
end.