блок схема. помогите

Обведённое не непременно, т.к. это уже есть в условии выше, но, коль в задании так, то на всякий случай сделал)) Вот программа, на всякий случай, обычно же блок-схемы для программ пишут:


var x, y: real;
begin
     readln(y);
     if (y gt; 10) then x := sqr(y);
     if (y lt;= 10) then x := y;
     if (y = 0) then x := 0;
     writeln(x);
end.

А это в сокращённом виде, так сказать, оптимизированном:
var x, y: real;
begin
     readln(y);
     if (x gt; 10) then x := sqr(y)
        else x := y;
     writeln(x);
end;