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

Текст програми

program lab1;
var
x,y:real;
begin
x:=-0.3;
while x<1 do begin if x >0.5 then begin
y:=sqr(x)*sqr(x)*sqr(x) + Exp(x)*Exp(x);
writeln('y:= ',y:3:2);
end else if x<>0 then begin
y:=(sin(x)/cos(x))/x;
writeln('y:= ',y:3:2);
end
else
writeln('ERROR!!! Deleniye na 0');
x:=x+0.1;
end;
readln;
end.
program lab1- название программы
var - секция объявления переменных
real - переменная вещественного типа (x,y - переменные )
begin - начало программы ( дано х = определенному значению)
while - это оператор цикла с предусловием ( где x меньше еденицы) тогда начинаем
if - <условие>
Then - оператор 1
Else - оператор 2
if - then - else = ЕСЛИ условие ТО оператор1, в другом случае оператор2
Writeln - оператор вывода строки
End - конец