Здесь есть кто может составлять программы и блок схемы в паскале?

Вместо а надо указать условие для x

Может его отдельно ввести?   (сейчас набираю на pascal)

var x,y:real;
begin
writeln(x);read(x);
if x>= 1 then y:=sin(x) else y:=2*x^2;
wrire(x,'  ',y);
end.