помогите составить программу срочно надо!
вот фото

program Uslowie;
uses Crt;
var x: real;

begin
ClrScr;
Write('x = '); ReadLn(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-25;
         
          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;
WriteLn('X = ', x:6:2);
ReadLn;
end.