Составить алгоритм вычисления функции y=2x при xamp;gt;0. X^2 при xamp;lt;=0

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