Помогите по информатики.Я не могу понять как это делать(

Question

Помогите по информатики.Я не могу понять как это делать(

---

Answer 1

Блин, странно как-то. В блок-схеме написано 10, а в задании -10. Если 10, то вот вроде правильно:

Program Z_1;

var y,x:real;

Begin

Writeln('Введите значение x');

Read(x);

If x<=10 then</p>

 y:=x*x

Else

 y:=20-x;

Writeln('Значение y:');

Write(y);

End.