Как написать программу по этой блок-схеме на Паскале? Срочно.

Question

Это готовая схема разветвляющегося алгоритма, не важно почему, мне просто хочется научиться писать программу по графикам, уравнениям. Просто, если есть возможность, помогите, подскажите, без лишних вопросов и придирок.

user_106745230 · Accepted Answer

var x:real; 
begin 
  read(x); 
  x:=x/4; 
  if x>=15 then  
    begin 
        x:=x+12; 
        if x>20 then begin 
          x:=x*5; 
          x:=x-25 
        end 
        else begin 
          x:=x*3; 
          x:=x+13 
        end; 
       end 
   else begin 
     x:=x+6; 
     if x>=10 then begin 
       x:=x*11; 
       x:=x+24 
     end 
     else begin 
       x:=x*4; 
       x:=x-8 
     end; 
   end; 
write(x) 
end.