Составить денотатный граф на тему !

Денотатный граф - [от лат. denoto — обозначаю и греч. — пишу вычленения из текста существенных признаков ключевого понятия.

создания денотатного графа:
•Выделение ключевого слова или словосочетания
•Чередование имени и глагола в графе (именем может быть одно существительное или группа существительных в сочетании с другими именными частями речи; глагол выражает динамику мысли, движение от понятия к его существенному признаку)
•Точный выбор глагола, связывающего ключевое понятие и его существенный признак (глаголы, обозначающие цель — направлять, предполагать, приводить, давать и т. д. ; глаголы, обозначающие процесс достижения результата — достигать, осуществляться; глаголы, обозначающие предпосылки достижения результата — основываться, опираться, базироваться; глаголы-связки, с которых осуществляется выход на определение значения понятия)
•Дробление ключевого слова по мере построения графа на слова — "веточки"
•Соотнесение каждого слова — "веточки" с ключевым словом с целью исключения каких-либо несоответствий, противоречий и т. д.

const n=100;

program Zadacha1;

ver a: array [1.. n] of real;

x:: real; i: integer;

begin;

writeln ('Введите элементы массива');

for i = 1 to n do red (a [i])

writeln ('Введите значение для поиcка')

read (x);

for i:=1 to n do

if a[i] == x then

writeln ('на ', i, 'месте массива находится заданный элемент', x:8:2);

end!

Объяснение:

В первой строке пропустил ";".

В пятой написал began, а правильно begin.

В седьмой между i и = не должна быть ";", при этом для цикла for нельзя ставить ";".

В восьмой не посика, а поиска, еще забыл ";".

И на последней строчке не enn, a end.

program raf105;

var k,a,p,b,m,let:real;

begin

write('Площадь участка (га.): ');

readln(k);

write('Средняя урожайность с гектара (ц.): ');

readln(a);

write('Увеличение участка за год (% от площади): ');

readln(p);

write('Рост урожайности за год (% от урожайности): ');

readln(b);

write('Желаемый урожай (ц.): ');

readln(m);

while a < m do

begin

 k+= (k/100*p);

 a+= (a/100*b);

 let+= 1;

end;

writeln;

writeln('Желаемая урожайность (',m,' ц.) будет достигнута через ',let,' лет');

writeln('При этом, площадь участка будет составлять примерно ',round(k),' га.');

end.

Язык PascalABC