Составить блок-схему и программу,  вычисляющую   р=х2+10, если х<0. Pascal ​

Исходный код:

program sqare;

var x, p: integer;

begin

 Readln(x);

 p := sqr(x) + 10;

 Writeln(p);

end.

Пояснение:

Определяем переменную x и p как целочисленные.

Вводим x с клавиатуры.

Считаем x²+10 и записываем в p. Использовалась функция sqr для получения числа в квадрате.

Выводим p

код могу лишь на питоне.

x=int(input())

if x<0:

p=2*x+10

print(p)