Составить алгоритм нахождения функции: Y= x^2 +2, если x-7

program zz1;
var x, y:real; // задаем переменные не целого типа
begin
write( введите исходное значение х ); // вводим с клавиатуры исходное значение х
read(x);
if x lt;= -7 then y:=sqr(x) + 2 else y:=cos(x); // проверяем, если значение х меньше или равно минус 7, то функцию считаем по одной формуле, если больше минус 7, то по иной
write( приобретенное значение функции = , y:5:2); // выводим ответ в формате пять знаков для всего числа и два знака после точки
end.