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

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


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

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

спасибо