Модуль 3 задание 6

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 - конец программы.