Обведённое не обязательно, т.к. это уже есть в условии выше, но, коль в задании так, то на всякий случай сделал)) Вот программа, на всякий случай, обычно же блок-схемы для программ пишут:
var x, y: real;
begin
readln(y);
if (y > 10) then x := sqr(y);
if (y <= 10) then x := y;<br> 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;
