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

спасибо

Вот окончательный вариант. Протестируй программу, а то я сейчас ухожу....

program Uslowie;uses Crt;var x: real;beginClrScr;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.