Question

Помогите составить блок-схему и программу!!!!!!!!!

Answer 1

Файл и схему прикрепил

Answer 2

Var x,y,a,b:real;
begin
  readln(x,a,b);
  if x<10 then y:=sqr(x)+5
  else
     y:=x+a/b;
writeln(y);
end.