Задание 6 для модуля 3

program p4;
var x,y:array[0..5] of real;
a,b:real;
i:integer;
begin
write('a,b : ');
readln(a,b);
for i:=0 to 5 do
begin
write('x',i+1,'=');
readln(x[i]);
y[i]:=(a-exp(b*x[i]))/(sqr(ln(x[i])));
end;
for i:=0 to 5 do
writeln('y(',i+1,')=',y[i]:0:2);
readln
end

program - раздел имени программы, р4 - имя пролграммы;
var - раздел описания переменных х,у - переменные; array[0..5] - тип индекса, of real - базовый тип;
i:integer - целый тип чисел;
begin - раздел операторов
write('a,b : ') - (оператор ввода-вывода) список вывода данных на экран;
readln(a,b) - (оператор ввода-вывода) список ввода данных с клавиатуры;
for i:=0 to 5 do - оператор цикла с параматром, оператор присваивания
begin - раздел операторов
write('x',i+1,'=') - (оператор ввода-вывода) список вывода данных на экран;
readln(x[i]) - (оператор ввода-вывода) список ввода данных с клавиатуры;
y[i]:=(a-exp(b*x[i]))/(sqr(ln(x[i]))) - оператор присваивания;
end - конец программы;
for i:=0 to 5 do - оператор цикла с параматром, оператор присваивания
writeln('y(',i+1,')=',y[i]:0:2) - (оператор ввода-вывода) список вывода данных на экран;
readln - ввод данных с клавиатуры
end - конец программы.