Ошибка ожидалось имя процедуры или функции

Начнём описывать первую формулу:

1-1)  y := x*x — это x²

1-2)  y := x*x + sqr() — это квадрат для тангенса

1-3)  y := x*x + sqr( sin() / cos() ) — это собственно тангенс, которого нет в паскале

1-4)  в скобочки sin и cos нужно добавить (x+pi)/2

Как итог, первая формула получилась такой:

y := x*x + sqr( sin((x + pi) / 2) / cos((x + pi) / 2) )

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Вторая:

2-1)  y := cos() — это понятно итак

2-2)  y := cos( exp( ln() / 5)) — корень пятой степени

2-2)  y := cos( exp( ln( abs(x + ln(abs(x))) ) / 5)) — тут просто

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Третья:

3-1)  y := exp( ln() / 3) — корень третьей степени

3-2)  y := exp( ln( x + exp(x) * sqrt(x + 1) - pi ) / 3) — добавить только то, что под корнем

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Вот и вся программа:

var
  x,y: real;
begin
  writeln('ввести x');
  readln(x); 
  if x <= -0.5 then
    y := x*x + sqr( sin((x + pi) / 2) / cos((x + pi) / 2) )
  else if x > +0.5 then
    y := exp( ln(x + exp(x) * sqrt(x + 1) - pi) / 3 )
  else  { -0.5 < x <= +0.5 }
    y := cos( exp(ln( abs(x + ln(abs(x))) ) / 5) );
  writeln('y(', x:6:2, ') = ', y:6:2);
end.

почему-то выдает ошибку:»Ожидалось имя процедуры или функции».Вот код:

program string8;
var stroka,rub,cur:string;
leng,i:integer;
alfavit:array [‘a’..’z’] of integer;
begin

readln(stroka);
rub:=copy(stroka,1,Pos(‘hi’,stroka)-1);
leng:=length(rub);

alfavit(stroka[1]):=alfavit(stroka[1]) + 1;

end.

Как это исправить?(заранее спасибо)

Вы перешли к вопросу Не могу понять в чем ошибка, пишет :Program1?. Он относится к категории Информатика,
для 10 — 11 классов. Здесь размещен ответ по заданным параметрам. Если этот
вариант ответа не полностью вас удовлетворяет, то с помощью автоматического
умного поиска можно найти другие вопросы по этой же теме, в категории
Информатика. В случае если ответы на похожие вопросы не раскрывают в полном
объеме необходимую информацию, то воспользуйтесь кнопкой в верхней части
сайта и сформулируйте свой вопрос иначе. Также на этой странице вы сможете
ознакомиться с вариантами ответов пользователей.