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

program zz1;

var x, y:integer; / / задаем переменные целого типа

begin

write ('введите исходное значение х '); / / вводим с клавиатуры исходное значение х

read (x);

if x < = 0 then y:=sqr (x) else y:=2 * x; / / проверяем, если значение х меньше или равно нуля, то функцию считаем по одной формуле, если больше нуля, то по другой

write (' полученное значение функции = ', y); / / выводим ответ

end.