Текст программы на Паскале:vary: integer;x: integer;beginfor x:= 50 downto 40 do begin //изменяем значение x от 50 до 40 при помощи циклаy:= x* 5 + x* x; //находим значение функции при каждом значении xwriteln (\'При x= \', x,\' значение функции у= 5х+х2 равно \', y); end;end.